Estoy empezando con Perl y estoy batallando mucho con este programita.
Tengo dos archivos de texto con el siguiente formato,
Archivo1.txt
- Código: Seleccionar todo
AC000000000 0 0
AC100000000 0 0
AC1100KLP00 19 51.72
AC3030GEN15 7 30.91
AC4015GEN04 11 4.83
AC4017GEN04 0 4.41
AC4017GEN05 24 5.54
AC5001GEN05 66 6.68
AC5002FPC09 15 28.78
AC5002GEN05 16 8.88
AC5003GEN00 6 6.11
AC700000000 0 0
Archivo2.txt
- Código: Seleccionar todo
AC1100KLP00 761.91 19
AC1300GEN06 #N/A #N/A
AC2100GEN05 #N/A #N/A
AC3030GEN15 49.77 7
AC3030GEN60 #N/A #N/A
AC4015GEN04 81.65 12
AC4017GEN04 #N/A #N/A
AC4017GEN05 93.65 24
AC5001GEN05 10.75 23
Lo que quiero que el programa haga es que cada uno de los elementos de la columna 1 del archivo1.txt se compare con todos los elementos de la columna 1 del archivo2.txt y cuando sean iguales escribir en un nuevo archivo3.txt el contenido de esas filas del archivo1.txt. Espero haberme explicado.
Es decir, en mi ejemplo el archivo3.txt debería quedar más o menos así:
- Código: Seleccionar todo
AC1100KLP00 19 51.72
AC3030GEN15 7 30.91
AC4015GEN04 11 4.83
AC4017GEN04 0 4.41
AC4017GEN05 24 5.54
AC5001GEN05 66 6.68
Donde tengo la duda principalmente es en el algoritmo para comparar los elementos de las columnas 1 de los dos archivos.
No pongo código porque estoy bastante perdido en este asunto, no sé si con un while o metiendo las columnas en arreglos y con foreach, pero he intentado varias cosas y no obtengo los resultados esperados.
De este mismo foro, leí que podía pegar mis archivos en uno solo con el comando paste, pero aún así no sé cómo comparar completamente las dos columnas.
Espero puedan ayudarme y de antemano ¡gracias!
Atte.
Luis G. Mendoza