perl - 如何在 Perl 中将文字字符串转换为其表示的 unicode？

Question

如果我有一个像这样的文字字符串

my $x = 'JPMorgan Chase \x{0026} Co';

我想把它转换成

"JPMorgan Chase \x{0026} Co" 

其中包含一个 unicode。 (请注意双引号和单引号之间的区别。)

最简单的方法是什么？这是一个简化的例子。实际问题中有很多这样的例子。

Answer 1

如果您需要处理的唯一转义格式是 \x{1234}，那么一种处理方法可能是将转义序列与正则表达式匹配，然后使用 chr (hex($1)) 将十六进制字符串转换为字符:

my $x = 'JPMorgan Chase \x{0026} Co';
$x =~ s/\\x\{([0-9a-f]+)\}/chr(hex($1))/e;
say $x; # -> "JPMorgan Chase & Co"