perl - Perl：将 Unicode 字符串传递给 chr()

Question

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

我正在尝试将 Unicode 标记传递给该chr()函数。这是我的脚本的一个编辑示例。

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

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

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

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

从消失并发送正确的 0x26

score 3 · Accepted Answer

你不要使用“0x”字符串chr，你可以使用ordand的方式hex。所以你要：

 chr(hex($hexstring))

1 回答 1