Cómo convertir una cadena codificada en hexadecimal a una cadena de bytes en Perl?

Question

Mi código original está en Python, pero necesito convertirlo a Perl para algunas bibliotecas que no tengo a mi disposición en Python.

En Python Me gustaría hacer esto:

packet=binascii.unhexlify('F0000000F6905C452001A8C0000000000160994E810FB54E0100DB0000000000000') 

Y

Esto crearía una cadena que contiene la representación binaria de:

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

Ahora que mi cadena es una matriz de bytes I puedo enviarlo como la carga útil de mi paquete. ¿Cómo lo hago Perl?

Answer 1

Puede usar la función pack para esto.

Ejemplo:

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

Mira la pack tutorial.