Perl UTF-8字符开关

use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

转载于:https://blog.51cto.com/417722381/1888817