perl 中unicode码转中文

刚开始是借鉴 http://blog.csdn.net/chivalrousli/article/details/40400493 这篇文章 对我遇到的源码没有其作用   

上代码   ：

sub mains{
 my  $str = '\u5e73\u5b89\u8bc1\u5238\u6709\u9650\u8d23\u4efb\u516c\u53f8(\u6df1\u5357\u4e2d\u8def\u8425\u4e1a\u90e8';  

$str =~ s/\u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;  
$str = encode( "utf8", $str );

print $str;   

}

对程序做稍做修改就可以使用。

在win系统下对这个码转换会有乱码 不能很好的转换 这种码应该属于非标准码 思路反转 将源码"\u" 转换成 “%u” 就可以完美解决了中文乱码的问题

$str =~ s/\%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;  这样就可以了。