523066680 (消遣区)当前离线
版主
use utf8; use Encode; my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba'; $str=~s/\\u(.{4})/chr(hex($1))/eg; print encode('gbk', $str);复制代码
嗨!我是中国人
评分人数
TOP
use utf8; use Encode; my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba'; $str=~s/\\u(.{4})/\\x\{$1\}/g; print encode('gbk', eval qq("$str"));复制代码