unicode转中文

<pre name="code" class="html">[root@dr-mysql01 ~]# cat a1.pl
my $str="$ARGV[0]";
use Encode;
use Encode::CN;
use JSON;
use URI::Escape;
use LWP::Simple;
$str =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg;
print "$str";
 
[root@dr-mysql01 ~]# perl a1.pl "\u767b\u5f55\u6210\u529f"
Wide character in print at a1.pl line 8.
登录成功You have mail in /var/spool/mail/root