7

いくつかの Unicode コードポイント (\u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b) があり、それらが表す実際の文字に変換する必要があります。

そうする最も簡単な方法は何ですか?

4

4 に答える 4

7

時々私はpackを使うだけです:

binmode STDOUT, ':utf8';

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

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

print $string;
于 2010-04-19T22:50:04.470 に答える
4

Unicode ::Escapeは必要なものでしょうか?

于 2010-04-19T13:11:27.603 に答える
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)'
于 2010-04-19T14:04:14.200 に答える
1
use JSON::XS
print JSON::XS->new->decode('{"a":"\u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b"}')->{a}
于 2010-04-19T13:16:27.420 に答える