Foro - Perl en Español

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

El problema está en la comparación, que no es tal:

$primera_columna = $segunda_columna

En realidad, eso no es una comparación, sino una asignación. Estás asignando el valor de $segunda_columna en $primera_columna.

Las comparaciones, en Perl, se hacen con operadores de comparación, y que además, se diferencian entre comparaciones numéricas ( ==, !=, <, >, <=, >= y <=>) y las alfanuméricas ( eq, ne, lt, gt, le, gt y cmp).

Si sabes que los datos son siempre numéricos, pues usas '=='. Si no lo son, o no estás seguro, pues usas 'eq'.

Más información en perldoc perlop.

Hay un error también muy grave: estás haciendo que la línea leída del primer fichero quede almacenada en la variable por defecto $_, y ese valor se pierde en cuanto entra en el segundo bucle, ya que las líneas del segundo fichero sobreescriben $_, por lo que la línea

print $SALIDA $_;

en realidad estás imprimiendo las líneas del segundo fichero.

Debes separar las líneas de cada fichero. Por ejemplo:

while (my $linea_primer_fichero = <$FICHERO1>) {

Lo que también puedes hacer es leer los ficheros una sola vez, en vez de leer el segundo fichero de forma completa por cada línea del primero. Puedes leer los ficheros y meter la información relevante en arrays, y luego, recorrerles, grabando el resultado en el tercero.

Lo indicado antes: leer los ficheros antes, y pasarlos a una estructura de datos interna. De esa manera puedes agregar datos de un mismo campo. Por ejemplo, crear un array donde vamos guardando cada línea (o ciertos campos) donde vamos guardando la información según el valor del segundo campo.

Pero antes habría que aclarar qué consideramos para juntar varias líneas en una sola ¿sólo el segundo campo, o toda la línea? ¿Y si solo es el segundo campo, cómo ha de ser las líneas unificadas?, es decir, ¿cómo se ha de construir la línea resultado?

La estructura de datos la puedes construir así:


Para ver, temporalmente, el contenido de la estructura de datos, puedes usar el módulo Data::Dumper:


Luego, en la tercera parte del programa, solo hay que recorrer las claves de %campos (aunque saldrán desordenadas, pero tampoco se ha comentado que eso importe).

Más información en perldoc perllol.

El problema que yo tengo, para darte una solución, es que los requisitos no están claros. Veo los distintos ficheros que has publicado y no hay una unanimidad del formato que estás usando. No tenga nada claro cómo es el primer fichero. Ni sé si el segundo fichero tiene las líneas ordenadas con respecto al campo 6. Y mucho menos, cómo se construye cada línea del tercer fichero.

Supongamos que tenemos un primer fichero así:
del que solo nos interesa el campo 1. Luego tenemos un segundo fichero así:
del que nos interesa los campos 6, 7 y 8. La salida debe ser igual que el segundo fichero, pero aglutinando los campos 7 y 8 a igualdad del campo 6 (y que ese campo también esté presente en el primer fichero). Con el siguiente programa:

Y sale

La resolución del programa se basa en usar un hash que va guardando las líneas que tienen todas el mismo campo 6. Es decir: las claves del hash son los nombres del campo 6, mientras que los valores son array, en que cada elemento es una línea que coincide con ese campo.

Luego, en el último bucle, vamos leyendo esos campos, ordenados numéricamente, y vamos sacando esas líneas. De cada una de ellas, creamos una (la llamada $plantilla), y luego, de todas las líneas, sacamos los campos 7 y 8 y vamos agregando toda la información, para sacarla al fichero resultado.

Lo que tiene de complicado es entender la estructura de datos, pero se puede ver fácilmente la forma que tiene si usas el módulo Data::Dumper y sacas el valor de %segundo_fichero: (al final del programa, agrega estas líneas)