Windows控制台支持的字体很少,所以即使用
制定控制台使用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);
binmode(FILE,":encoding(utf8)");
@lines=<FILE>;
close(FILE);
for($i=0; $i<@lines; $i++){
print $lines[$i];
print "\n";
}
}
$str="你好";
print $str;
print $str;
该程序用Perl去读取一个文本文件test1.txt,然后显示到控制台上。关键在于:
1. use encoding 'utf8', STDIN=>'gb2312',STDOUT=>'gb2312';
2:binmode(FILE,":encoding(utf8)");
这样就实现了Perl在Windows控制台上处理UTF8字符了。