Perl ASCII 字符判断时间：2022-09-09 20:18:38 主要还是看ASCII码的值， $str =~ m/[^\0-\127]/ $str =~ m/[^\x0-\x7f]/ 要注意反斜线的作用，转义符，一定不要少！
