<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