Windows控制台支持的字体很少,所以即使用

  chcp 65001

制定控制台使用UTF8,显示出来的字体也很难看,当Perl程序和Perl要读取的文件都使用UTF8编码时,怎么办呢?先看如下程序:
#!/usr/bin/perl
use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
open(FILE,"c:\\test1.txt");
binmode(FILE,":encoding(utf8)");
@lines=<FILE>;
close(FILE);
for($i=0; $i<@lines; $i++){
   print $lines[$i];
   print "\n";
}
$str="你好";
print $str;

该程序用Perl去读取一个文本文件test1.txt,然后显示到控制台上。关键在于:
 
1. use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';

   use encoding 'utf8' : 指定该脚本文件的编码格式为utf8;
   STDIN=>'gb2312', STDOUT=>'gb2312': 输入和输出采用GB2312字符集。
   这样,Perl脚本中的的汉字即可被输出。
 
2:binmode(FILE,":encoding(utf8)");

   指定打开的文件FILE的编码格式为utf8,这样就能正确的读入数据到@lines中了。
这样就实现了Perl在Windows控制台上处理UTF8字符了。