Perl 在windows下打印中文乱码问题

方法一

use utf8;binmode(STDOUT, ":encoding(gbk)");$单价=10;$数量=100;$总额=$单价*$数量;printf "总额%d\n",$总额;#printf可以输出格式字符串output:总额1000

方法二

use Encode;my $str='你好';$str = encode("gbk", decode("utf-8", $str));print $str,"\n";output:你好