Perl 在windows下打印中文乱码问题
方法一
use utf8;
binmode(STDOUT, ":encoding(gbk)");
$单价=10;
$数量=100;
$总额=$单价*$数量;
printf "总额%d\n",$总额;
#printf可以输出格式字符串
output:
总额1000
方法二
use utf8;
binmode(STDOUT, ":encoding(gbk)");
$单价=10;
$数量=100;
$总额=$单价*$数量;
printf "总额%d\n",$总额;
#printf可以输出格式字符串
output:
总额1000