比如
09.111 不合法
9.1000 合法
忽略了一点,就是还需要加上+-号
sub checkNumber{
return shift =~ /^[+\-]?([1-9]\d*|0)(\.\d+)?([eE][+\-]?([1-9]\d*|0)(\.\d+)?)?$/;
}
my $number = "-0.435e-0.88";
if( checkNumber($number)){
print "Legal number\n";
}
else{
print "Illegal number\n";
}