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

Question

我的原始代码在 Python 中，但我需要将其转换为 Perl，以用于一些我在 Python 中无法使用的库。

在 Python 中我会这样做：

packet=binascii.unhexlify('F0000000F6905C452001A8C0000000000160994E810FB54E0100DB0000000000000')

与

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

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

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

Answer 1

您可以为此使用pack 函数。

例子：

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

查看pack tutorial。