疑问：Perl读取UTF8编码的文件，显示乱码。

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

例子如下：

 

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

 

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

预期输出：

china中国

china

 

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