如何在 Perl 中将十六进制编码的字符串转换为字节字符串？

Question

我的原始代码位于 Python 中，但我需要将其转换为 Perl我在 Python 中没有可用的库。

在 Python 中，我会这样做：

packet=binascii.unhexlify('F0000000F6905C452001A8C0000000000160994E810FB54E0100DB0000000000000')

AND

这将创建一个包含以下二进制表示形式的字符串：

0xF0 0x00 0x00 0x00 0xF6 0x90 0x5C 0x45 etc...

现在我的字符串是一个字节数组，我可以将它作为数据包的有效负载发送。我该怎么做 Perl？

Answer 1

您可以使用 pack 函数来实现此目的。

示例：

$ perl -e 'print pack("H*", "303132616263"), "\n";'
012abc

查看打包教程。