检测预期数字的字母

Question

如果有人写了一封信并且程序需要一个号码，我如何检测并显示错误？

Answer 1

正则表达式匹配使这很容易。搜索任何不是数字或算术符号的字符：

if ( $input =~ /[^0-9+*/-]/ ) {
  print "Incorrect character detected!\n"
}

字面意思是任何字母：

if ( $input =~ /[A-Za-z]/ ) {
  print "Incorrect character detected!\n"
}