1 use utf8; 2 my $name = ‘你好‘; 3 #binmode(STDOUT, ":encoding(gbk)"); 4 print $name,"\n"; 5 6 # #或 7 # use Encode; 8 # my $str=‘你好‘; 9 # $str = encode("gbk", decode("utf-8", $str)); 10 # print $str,"\n";
perl 在win下输出中文乱码问题
原文：http://www.cnblogs.com/perl6/p/6417790.html
