Perl ASCII 字符判断

649 查看

主要还是看ASCII码的值,
$str =~ m/[^\0-\127]/
$str =~ m/[^\x0-\x7f]/

要注意反斜线的作用,转义符,一定不要少!