523066680

介么复杂的吗

use utf8;
use Encode;
my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba';
$str=~s/\\u(.{4})/chr(hex($1))/eg;
print encode('gbk', $str);COPY

嗨!我是中国人

523066680

换一种方式，转 \x{} 再 eval

use utf8;
use Encode;
my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba';
$str=~s/\\u(.{4})/\\x\{$1\}/g;
print encode('gbk', eval qq("$str"));COPY

破语言，不值一提。