Foro - Perl en Español

Hola...

Escribo porque tengo un gran problema: resulta que para poder terminar mi script me falta un último paso que es comparar dos archivos.

Tengo dos archivos así...

Archivo 1:


Archivo 2:


Necesito comparar la primera línea de mi archivo 1 con todas las líneas de mi archivo 2, luego la línea 2 del archivo 1 con todas las líneas del archivo 1, y así sucesivamente, y dejar un registro cuando exista una igualdad...

He intentado hacerlo de varias formas que he visto aquí, pero no me resulta...

Si me pudieran ayudar se los agradecería mucho.

P.D.: será mejor pasar el archivo a un arreglo... ¿o sigo manejando los archivos?

Lo normal es meter las líneas del fichero más pequeño en un hash, y luego recorrer línea a línea el fichero más grande. Por cada línea, vemos si esa línea existe en el hash, y si es así, la guardamos como coincidencia.

Por estos foros hay muchos ejemplos de esta misma tarea.

Y te podríamos ayudar más si pudiéramos ver tu código para decirte dónde están los problemas.

Muchas gracias... me sirvió excelente el código que me enviaste... gracias.

Hubiera sido mejor que lo enlazara con el original...

Sí, tienes razón, lo saqué de ahí para hacer mi parte anterior

¿Ya te has dado cuenta de que el split() de la línea 13 sobra? barbara quiere comparar líneas enteras, así que sobra el tratamiento de campos.

Pero bueno, está bien aplicado.

Aunque sospecho que una solución con hash sería mucho más rápida.

Si, eran solo cadenas, ahora lo noto