Вопросы Теги

Как я могу преобразовать кодовую точку Unicode (\uXXXX) в символ в Perl?

У меня есть некоторые unicode кодовые точки (\u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b), который я должен преобразовать в фактические символы, которые они представляют.

Что самый простой путь состоит в том, чтобы сделать так?

6
задан brian d foy 21 February 2016 в 21:04
поделиться

4 ответа

Может ли Unicode :: Escape быть тем, что вам нужно?

4
ответ дан 9 December 2019 в 20:41
поделиться 
use JSON::XS
print JSON::XS->new->decode('{"a":"\u5315\u4e03\u58ec\u4e8c\u4e0a\u53b6\u4e4b"}')->{a}
1
ответ дан 9 December 2019 в 20:41
поделиться

Иногда я просто использовал pack : 

binmode STDOUT, ':utf8';

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

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

print $string;
6
ответ дан 9 December 2019 в 20:41
поделиться 
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)'
1
ответ дан 9 December 2019 в 20:41
поделиться
Другие вопросы по тегам:

Похожие вопросы: