Foro - Perl en Español

Hola a tod@s.

Luego de asignarle a cada símbolo su código binario, reconstruyo el archivo original con los códigos binarios.

Mi problema en el algoritmo es al momento de tener el archivo en binario.

Tengo que coger grupos de a 8 números y convertirlos en 1 byte, lo cual no sé cómo hacerlo.

Me he basado en esta página para entender el algoritmo.
http://articulos.conclase.net/compresion/huffman.html

Gracias.

jejejejejejeje.

Luego de pasar mucho rato buscando, encontré la función que hace eso, o eso creo.

http://www.perlmonks.org/?parent=557655;node_id=3333

Lo que necesitaba es esto:
$a = pack('b8',"00100110");
Me devuelve lo que equivale los 8 bits.

Y lo mismo pero al revés con unpack():
$b = unpack('b8',$a); #me devuelve 00100110

Bienvenido a los foros de Perl en Español, nemest.

¿Y para qué necesitabas hacer el algoritmo de Huffman, si se puede saber? ¿Aprender o un trabajo de clase?

Lo digo porque ya hay módulos en Perl que lo implementaban... por ejemplo, Algorithm::Huffman, del que puedes ver el código que usa.

De todas maneras, enhorabuena por encontrar la solución.

Gracias por la bienvenida.

Es un trabajo de la universidad.
Me toca implementar ese algoritmo, y árboles AVL.
Aunque ya implementé la compresión, me falta la descompresión.

Lo del módulo no lo sabía. Es bueno saber lo del módulo, para ver qué tan malo es mi algoritmo, porque comprimiendo se demora bastante.

Gracias.

Depende de para lo que quieras realizar el algoritmo. Si es para aprender, es normal empezar haciéndolo en puro Perl. Si es para el trabajo diario, es normal notar que va lento, por lo que lo comparas con el que otros han conseguido. Y, finalmente, para grandes volúmenes de trabajo, lo normal es realizar la versión en C compilada, como por ejemplo la que trae MassSpec::CUtilities.

Todo depende de lo que quieras hacer al final