论坛 › Perl › 判断是否是数字 (perl)

zi663227 发表于 2017-5-19 09:24:18

判断是否是数字 (perl)

$a=123;
print "1. $a is number\n" unless (~$a & $a);
$a="123";
print "2. $a is number\n" unless (~$a & $a);
$a="abc123";
print "3. $a is number\n" unless (~$a & $a);

查看完整版本: 判断是否是数字 (perl)