我有一些unicode代码点(\ u5315 \ u4e03 \ u58ec \ u4e8c \ u4e0a \ u53b6 \ u4e4b),我必须将其转换为它们代表的实际字符。
最简单的方法是什么?
答案 0 :(得分:6)
有时我会使用pack:
binmode STDOUT, ':utf8';
my $string = '\\u5315\\u4e03\\u58ec\\u4e8c\\u4e0a\\u53b6\\u4e4b';
$string =~ s/\\u(....)/ pack 'U*', hex($1) /eg;
print $string;
答案 1 :(得分:4)
Unicode::Escape可以满足您的需求吗?
答案 2 :(得分:1)
use JSON::XS
print JSON::XS->new->decode('{"a":"\u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b"}')->{a}
答案 3 :(得分:1)
perl -C -E'say"\x{5315}\x{4e03}\x{58ec}\x{4e8c}\x{4e0a}\x{53b6}\x{4e4b}"'
或搞笑的方式
perl -C -E'say map chr hex, qw(5315 4e03 58ec 4e8c 4e0a 53b6 4e4b)'