Perl:将 Unicode 字符串传递给 chr()

Question

我对 Perl 很陌生，所以请原谅我可能会变成最明显的答案。

我正在尝试将 Unicode 标记传递给 chr()功能。
这是我的脚本的编辑示例。

#!/usr/bin/perl
$unicode = "/u0026amp;";
print chr("0x".substr($unicode, 4, 2))."\n";

这正确地从 $unicode 变量中提取了 26。
然而，据我所知，问题是 chr()函数不喜欢带引号的字符串，但是如果我删除引号，则 0x 中的 x 将被删除并变为无效的 026 而不是有效的 0x26。

无论如何，这真的归结为。我怎样才能保持 x

chr("0x".substr($unicode, 4, 2))

从消失并发送正确的 0x26

Answer 1

您不要将“0x”字符串与 chr 一起使用，您可以通过 ord 的方式和 hex .所以你要:

 chr(hex($hexstring))