[求助]perl测试中碰到的乱码问题。

blackmuyu

因为最近在用perl做一段程序，出现了中文乱码的问题，所以根据网上所说编了个test.pl进行测试，代码如下：

use Encode;
$dat="测试文本";
$str=decode("gb2312",$dat);
@chars=split //,$str;
foreach $char (@chars) {
print encode("gb2312",$dat),"\n";
}

按照这段编码后,我只是对$dat进行了decode，然后encode，输出，为什么还是出现乱码呢？都是问号。

我试了下，如果不用decode和encode输出，直接

$dat="测试文本";
print $dat这样是没有乱码的;

我将gb2312改成utf8也是有乱码，不过乱码长的跟gb2312的不一样。是一堆怪文字。

系统是centOS5.3的中文系统。

麻烦各位高人指教，谢谢。

blackmuyu

发现自己问题在哪了，print encode("gb2312",$dat)，应该是$str,不是$dat。

blackold

呵呵，encode,decode用错了。

fly183

晕，LZ还是没明白
print encode("gb2312",$dat)这里应该是$char,如果是$str,那就不用decode,encode了哦

blackmuyu

我知道用char的，我是实验的时候用str试试的，^_^。