学步园

因为Perl是文本处理比较强大的语言，所以打算学习学习。不过今天刚开始学就碰到一个问题，从网上找个例子，居然运行的不是预期的结果。

例子如下：

我的perl版本为5.8.0，我将下面的源代码文件保存为UTF8格式了。

use Encode;<br /> use strict;<br /> $a = "china中国";<br /> $b = "china中国";<br /> Encode::_utf8_on($a);<br /> Encode::_utf8_off($b);<br /> $a =~ s//W+//g;<br /> $b =~ s//W+//g;<br /> print $a, "/n";<br /> print $b, "/n";
 

预期输出：

china中国

china

但是实际输出（中国两个字为乱码）：