perl替换特殊字符

在交互的时候,经常有特殊字符骚扰,这一次主要是我用XML::Simple将一个hash保存为一个xml文件,但是解析xml文件的时候,有个null字符就不行了

所以呢,彻底点:s/[^\040-\176]//g;  去掉ascii中前边32个控制字符,以及127到256的特殊字符。

请使用浏览器的分享功能分享到微信等