如何将Unicode代码点(\ uXXXX)转换为Perl中的字符？

Question

我有一些Unicode代码点(\ u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b),我必须转换成他们所代表的实际字符.

最简单的方法是什么？

Answer 1

有时我只是使用pack:

binmode STDOUT, ':utf8';

my $string = '\\u5315\\u4e03\\u58ec\\u4e8c\\u4e0a\\u53b6\\u4e4b';

$string =~ s/\\u(....)/ pack 'U*', hex($1) /eg;

print $string;

Answer 2

Unicode::Escape是您所需要的吗？