Help for this page
sub is_numeric { ($_[0] & ~ $_[0]) eq "0"; }
print +(isnum($_) ? "is a number" : "not a number"), ": $_", $/ for qw( 1 2.2 3e3 4. .5); ... is a number: 3e3 is a number: 4. is a number: .5
www.com | www.net | www.org
Too much JavaScript Not enough JavaScript Just the right amount of JavaScript Not enough WebPerl
Results (15 votes). Check out past polls.
