Perl解决Wide character警告提示

Perl在处理中文时经常出现Wide character警告，原因是编码格式问题，默认采用utf8就行了，在代码头部加入：
use utf8;
binmode(STDIN,':encoding(utf8)');
binmode(STDOUT,':encoding(utf8)');
binmode(STDERR,':encoding(utf8)');
对于输出到文件时会继续报Wide characte警告，在输出到文件前关闭变量的uft8标志，用下面代码：
Encode::_utf8_off($str)；#其中$str是指要输出的变量名。