用perl求一语句怎么写，谢谢！
怎样判断一个字符串 $a 中有非数字的字符。

我的意思就是字符串 $a 中只允许有 0-9 这10个字符，如果有了其它的字符就报错，请各位高手告诉我这个语句用perl怎么写？谢谢！



[解决办法]
$a =~ /^\d*$/;

or

print "error " if $a =~ /\D/;