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 in

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

从消失并发送正确的0x26

Answer 1

chr和ord的方式不能与hex一起使用“0x”字符串。所以你想要：

 chr(hex($hexstring))