Foro - Perl en Español

Buenas,

Tengo un script que básicamente recorre un csv separado por comas, y utiliza el primer campo para pasarlo a hexadecimal y hacer un xor de los valores.
El problema está en que no consigo que el cálculo me lo haga correctamente, pero tampoco sé dónde está el fallo.

Aquí os dejo el código a ver si alguno me podéis iluminar, ya que yo no lo encuentro.


Los valores que tiene el csv son:



He intentado pasar los valores a decimal para trabajar con ellos, pero tampoco; y no consigo ver qué me está haciendo incorrectamente

Aún no lo he sacado al fichero porque en pantalla me muestra mal los valores...

Muchas gracias

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.

Muchas gracias por la bienvenida y la solución.... aunque no lo entiendo demasiado bien...

Tu código me falla, en la generación de los substring. Lo revisaré a ver si encuentro dónde está el problema (como soy novato yo le meto todos los paréntesis del mundo mundial y alguno más...)

Aparte de eso, cuando le meto el número de serie a través de una variable fija, en vez de pasárselo en un array me funciona correctamente, con lo que no tengo muy claro qué está pasando. Revisaré el script con la información que me has dado a ver qué se puede hacer...

Muchas gracias por tu tiempo

<edito> Comprobado, con la opción chr() tampoco hace los cálculos correctamente



Estos están calculados con la calculadora, y no son los que salen ni con el chr() ni con las mías.

¿¿¿Sera por cómo hace el xor con hexadecimales???

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:

Buenas

Muchas gracias por tu interés. Lo que te puse al final del anterior post eran pruebas con calculadora, siendo el checksum el valor del xor de todos los valores.

Usando el script y la calculadora, los valores son distintos. Tanto con la cadena chr() como sin ella, y eso es lo que me está volviendo un tanto loco...

¿¿Qué modificaciones has hecho para que te funcione correctamente?? ¿¿Es con tu script inicial?? A mi con tu script o con el mio me da los valores erróneos.

Muchas gracias

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.

¡¡¡¡Funciona de lujo!!!! Muchas gracias por todo, pero sigo sin entender dónde tenía exactamente el problema...

¿¿Era porque no almacenaba las variables como chr()?? ¿¿O por el ord()??

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'

Muuuuchas gracias por la explicación... así me podía estar yo volviendo loco y sin ver por dónde estaban los tiros...

Si es que esto de Perl es muuuu bonito, pero muuuu complicado