perl 在win下输出中文乱码问题

 1 use utf8;
 2 my $name = '你好';
 3 binmode(STDOUT, ":encoding(gbk)");
 4 print $name,"
";
 5 
 6 # #或
 7 # use Encode;
 8 # my $str='你好';
 9 # $str = encode("gbk", decode("utf-8", $str));
10 # print $str,"
";
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/perl6/p/6417790.html