perl的文字编码问题

hukof10th

在windows下用perl读写文件，文件里含有中文字，由于windows下的文字编码为utf16le，而perl默认应该是ascii的
我想问一下如何有效解决这个问题，因为我期望用正则来处理数据

下面有调试程序
my $test="篇";
print "$test\n";
$test=~s/\s+$//;
print "$test\n";#调试程序1

my $test="篇！";
print "$test\n";
$test=~s/\s+$//;
print "$test\n";#调试程序2
#调试程序1输出
ƪ
ƪ

#调试程序2输出
篇！
篇！

问题ms就出在这里，望大家能够出谋划策

iamlimeng

windows下不需要转码，直接写就是中文

hukof10th

回复 2# iamlimeng

但是实际跑就会有问题啊，我上面给了例子确实如此


   

iamlimeng

这段代码在我的电脑上是正常的。XP SP3，Perl 5.10

mcshell

回复 1# hukof10th

1. use encoding "utf8", STDOUT => 'gbk';

复制代码

win下默认输出是gbk吧。