一、在Perl代码前加上如下代码,Perl脚本中的的汉字即可被输出。
#use utf8表示代码使用UTF-8写的
#use encoding 'utf-8'表示你的运行环境,如buffer、IO等 都是UTF-8
#use utf8;
use encoding 'utf8',STDOUT => 'gb2312';
解释:use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
use encoding 'utf8' : 指定该脚本文件的编码格式为utf8;
STDIN=>'gb2312':输入采用GB2312字符集。
STDOUT=>'gb2312': 输出采用GB2312字符集。
二、读入含有汉字的文本数据时(Windows控制台上使用UTF-8)
#!/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;
解释:binmode(FILE,":encoding(utf8)");
指定打开的文件FILE的编码格式为utf8,这样就能正确的读入数据到@lines中了,这样就实现了Perl在Windows控制台上处理UTF8字符了。