Foro - Perl en Español

Hola a todos.

En esta ocasión busco ayuda por el siguiente inconveniente: tengo un código que me compara dos listas (son códigos ID). Si el ID de la lista 1 existe en la segunda columna de la lista 2, entonces imprime el ID correspondiente de la lista 1 y el ID correspondiente de la primera columna de la lista 2.

Bien, el programa hace eso, pero cuando reviso el archivo de salida me doy cuenta de que las posiciones cambian, es decir, el que era el código primero ya no lo es.

Para los fines que requiero es importante que haga la comparación pero que imprima sin alterar el orden de la lista 1.

¿Cómo puedo programar esto? ¿¿Hay algún comando que pueda utilizar??

Gracias de nuevo.

Cualquier comentario seguro será de gran ayuda, como siempre.

Enseguida les dejo mi código y les adjunto los archivos de entrada y cómo debería ser mi archivo de salida.
Saludos.






Mi archivo de salida debería ser así:

El problema está en el uso de hash para llevar el control de los elementos aparecidos. Sí que es correcto usarlo para saber de la existencia de los ID de una lista, pero el problema está en que el orden en que Perl almacena los valores dentro del hash, es algo completamente aleatorio, y diferente del orden en que se insertaron o crearon.

Una solución sería obligar a que el hash sí que almacene los valores en el mismo orden en que se insertan. Para ello, se puede usar el módulo Tie::IxHash.

Sería algo así:

Más información perldoc -q sorted.

Hola explorer, ya inserté las lineas de código y descargué el paquete necesario. El programa corre pero aún sigue alterando el orden de las líneas durante la comparación. Revisé si en el hash %filas se almacenaba la información en el orden requerido y de hecho sí lo hace. Agregué la misma línea pero para el hash %filas2 del segundo archivo, pero sigo sin lograr hacer la comparación sin alterar el orden del archivo 1.

Saludos.

Quien marca el orden de salida es el fichero 2. Observa que estás leyendo el fichero 2, línea a línea, y cuando hay coincidencia, imprime inmediatamente los datos del fichero 1. Por eso salen desordenados los datos del fichero 1: están saliendo según el orden de los datos del fichero 2.

La solución sería (una de varias) guardar los datos a imprimir en un %hash, que tenga como clave el valor de la clave de %filas, y el valor, la línea a imprimir. Luego, cuando hayas terminado con el bucle de las líneas del fichero 2, haces un nuevo bucle que recorra las claves de %filas (que sabemos que están en orden). Dentro del bucle, haces un if() parecido al de la línea 52, en donde compruebas la existencia del elemento $hash{$clave_del_1}. Si existe, entonces imprimes ese valor. Así, saldrá ordenado.

Una forma corta de resolver este problema es usando el operador 'coincidencia inteligente', de Perl v5.10: '~~'. No necesitarías tantos hash, aunque el programa podría volverse lento (si los ficheros tuvieran decenas de miles de líneas, claro).

creo que la solución obvia (y sencilla) sería hacer el proceso inverso: leer primero el fichero 2 a memoria, y luego hacer el bucle por líneas con el fichero 1, que es el que marca el orden de salida.

A veces, lo mejor es parar y volver a plantearte el problema desde cero