PERL GB2312 UTF-8 编码转换

gb2312转Utf的方法：

use Encode;
my $str = "中文";
$str_cnsoftware = encode("utf-8",decode("gb2312",$str));

 

Utf转 gb2312的方法：

use Encode;
my $str = "utf8中文";
$str_cnsoftware = encode("gb2312",decode("utf-8",$str);

 

转自

http://www.sysab.cn/a/pro/perl/2009/1204/7951.html