perl 编码转换

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);

或用

use Encode;

 Encode::from_to($octets, "iso-8859-1", "cp1250");