15 lines
301 B
Perl
15 lines
301 B
Perl
sub getnum {
|
|
use POSIX;
|
|
my $str = shift;
|
|
$str =~ s/^\s+//;
|
|
$str =~ s/\s+$//;
|
|
$! = 0;
|
|
my($num, $unparsed) = strtod($str);
|
|
if (($str eq '') && ($unparsed != 0) && $!) {
|
|
return undef;
|
|
} else {
|
|
return $num;
|
|
}
|
|
}
|
|
|
|
sub is_numeric { defined getnum($_[0]) }
|