perl 判断是否数字

数字有很多种.. 以下示范是所有合理数字的判断:

my @test = ( "-0", "0123", 1, "1.0", 2.23, "2.3.3", -10, -10.5, "-10.5.5" ) ;

my $reg1 = qr/^-?\d+(\.\d+)?$/;
my $reg2 = qr/^-?0(\d+)?$/;

foreach my $num ( @test ) {
    my $is = undef;
    $is = "is" if ( $num =~ $reg1 && $num !~ $reg2 );    
    $is = "is not" unless $is;
    print "$num $is a number$/";    
}
__END__
结果如下:
-0 is not a number
0123 is not a number
1 is a number
1.0 is a number
2.23 is a number
2.3.3 is not a number
-10 is a number
-10.5 is a number
-10.5.5 is not a number

但如果你只需要检验输入的为纯数字, 那就可以简单点:

my $num = "01234567";
print "yes" if $num =~ /^\d+$/;

我猜你的意思是判断某个字符串中是不是只有数字？
可以用正则

if $str =~ m/^\d+$/
...

$str就是你要测试的字符串

精通perl
精通正则
$num=123;
$num=-123;

\d 代表0-9
\d+ 代表任意个数字>=1。

看exile的答案 不懂的地方可以问我