为何以下Perl正则代码无法从变量中移除非ASCII字符并替换为空格？

• r修饰符使用逻辑错误
  你写的非ASCII替换代码带了r修饰符，该修饰符的特性是仅返回替换后的新字符串，不会修改原变量$text。而你用于移除换行符的代码没有加r修饰符，会直接修改原变量$log_mess，这是后者能正常生效、前者无效果的最常见原因。
  修复方式是把替换结果赋值回原变量即可：

  $text = $text =~ s/[[:^ascii:]]+/ /rg;
  $text =~ s/\h+/ /g;
  

• 输入内容未正确解码
  如果待处理的$text是未经解码的多字节编码字节流（比如UTF-8编码的文件内容、接口返回值），Perl无法识别其为Unicode字符串，[:^ascii:]字符类就无法正确匹配非ASCII字符。你可以在读取输入时通过Encode::decode方法将字节流解码为Perl内部Unicode字符串，或者给读取的文件句柄添加:encoding(UTF-8)层解决该问题。
• POSIX字符类兼容性问题
  部分旧版本Perl对[:^ascii:]这类POSIX字符类的支持存在异常，你可以换成兼容性更强的ASCII范围匹配写法：

  $text = $text =~ s/[^\x00-\x7F]+/ /rg;
  

内容的提问来源于stack exchange，提问作者methuselah