string - Perl程序从十六进制值打印Unicode

Question

我从Perl开始，对给定十六进制字符串变量如何呈现unicode字符感到困惑。

#!/usr/bin/perl
use warnings;

foreach my $i (0..10000) {
    my $hex = sprintf("%X", $i);
    print("unicode of $i is \x{$hex}\n");
}
print("\x{2620}\n");
print("\x{BEEF}\n");

给我警告: Illegal hexadecimal digit '$' ignored at perl.pl line 9.
且没有 \x{$hex}的值打印

Answer 1

chr($num) 和 pack('W', $num) 都产生一个字符串，该字符串由具有指定值的单个字符组成，就像"\x{XXXX}"一样。

因此，您可以使用

print("unicode of $i is ".chr(hex($hex))."\n");

要不就

print("unicode of $i is ".chr($i)."\n");

请注意，如果没有

use open ':std', ':encoding(UTF-8)';