Foro - Perl en Español

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

El problema que veo es que estás haciendo una conversión a cadena de caracteres, en las líneas 47 a 49, por medio de la función uc(). Te vale con cambiarla por la función hex() para que todo funcione. Esa función está indicando que lo que contiene las variables $byte está en hexadecimal y queremos pasarlo a entero. Así, la operación matemática del xor, a continuación, funcionará bien.

Esta es otra solución, usando datos puramente binarios, usando chr() y ord() para hacer la conversión de entero a valor entero binario.

Estos son los cambios principales:
* hacemos uso de la función ord() para transformar un valor entero binario a entero decimal
* hacemos uso de la función chr() para transformar un entero decimal a entero binario.

Las líneas que definen a los bytes 1, 2, y 6 al 9, son de esta manera:

$byte1 = chr 0x09;

en la que estamos pasando un valor entero (en formato de Perl) a entero binario. Ahora, $byte1 sí que guarda la representación binaria de un nueve. Si no hiciéramos esto, guardaría un 9 como entero escalar de Perl.

Ahora ya podemos realizar las operaciones binarias con xor.

En cambio, cuando necesitemos sacar la representación decimal de ese valor, necesitaremos usar la función ord(), como en el caso de los printf(). Primero pasamos ese número 9 almacenado de forma binaria a un número decimal 9 con la ayuda de ord(). Y luego printf() lo transforma al formato visual que necesitamos.

No nos das un ejemplo de salida correcta, así que he tenido que deducirlo viendo el código, y en el código, se aplica xor a los nueve valores (línea 34).

Y con la calculadora en la mano sí que me funciona.

P.D. xor no puede realizar operaciones con hexadecimales, solo con operandos binarios.

perl -le '$x = chr 0x10; $y = chr 0x01; print ord($x ^ $y)'

La salida es 17 (0x11).

Haciendo unos cambios al programa, y siendo la entrada esta:
la salida es ahora:

He editado mi mensaje anterior y he colocado las modificaciones: era comentar todos los print() y colocar dos líneas nuevas con print() diferentes, para que saliera como tu última salida.

Sería interesante ver qué te sale a ti.

No sé por qué no te funcionaba, sin ver el código que tenías.

Para la explicación del porqué del uso de chr() y ord(), me remito al comentario anterior.

Ahora que funciona, podemos probar con cosas más sencillas: toda la explicación anterior de que los datos en Perl estaban en un formato entero y que había que pasarlo a enteros binarios... no es del "todo" exacto...

Resulta que Perl puede tratar al contenido de un escalar, básicamente, como una cadena de caracteres o un valor entero (aparte de otras cosas). Eso quiere decir que si una variable que contiene un número, la tratamos como cadena de caracteres, si queremos obtener su representación binaria, estamos obligados a usar el juego chr()/ord(). Pero también quiere decir que si a las variables siempre las consideramos como que contienen valores numéricos, entonces Perl los tratará como tales (en nuestro sentido de hacer operaciones binarias con ellos).

Entonces, tu problema puede reducirse a esto:

La salida es la esperada:

y no hemos tenido que utilizar para nada las funciones hex(), chr() y ord(). ¿Por qué? pues porque en todo momento estamos haciendo operaciones de enteros.

De tu primer programa que has publicado en este hilo, solo habría que hacer un cambio para que funcionara bien: en las líneas 47 a 49 cambias la función uc() por hex(), y en ese momento todas las variables ya son enteras, y la función xor a continuación funciona perfectamente.

Perdona si te he liado con todo el follón chr()/ord().

perl -le '$x=16; $y=1; print $x ^ $y'