perl 判断是否数字

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就是你要测试的字符串