如何在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。