Foro - Perl en Español

Saludos. Soy nuevo en esto del Perl y mi duda es muy básica. Tengo dos archivos.
Archivo 1:

etc, número de líneas.

Archivo 2
10932=189.209.208.161=9=1=1=Componente3
189.209.208.161=50=1=1=Componente2
etc, etc, etc, número de líneas.

Mi pregunta es cómo comparo el segundo archivo en el campo [2] con el primer archivo, en su campo [2], para tener un tercer archivo donde muestre lo encontrado en el primer archivo.
Algo así

Archivo 3 (en el tercer archivo se encontraron dos coincidencias: el 50 y el 54)

8=50=50356536=6=50=49351358=7=50=709286=5=50=702400
8=54=390078008=6=54=629567679=7=54=67566209=5=54=84824766

etc etc etc.

Leyendo en el foro encontré esto, pero no he logrado hacer la comparación.



Espero logren ayudarme...

Saludos.

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.

Tenías razón, he logrado filtrar los datos, pero hora me queda un simple problema.

Me quedaron los datos, en un archivo final.txt:

10932=189.209.208.161=141=L001=252554=8=141=60228800=1048576=0=
10932=189.209.208.161=141=L001=252554=6=141=125802522=1048576=0=
10932=189.209.208.161=141=L001=252554=7=141=338700=1048576=0=
10932=189.209.208.161=141=L001=252554=5=141=352203=1048576=0=
10932=189.209.208.161=143=L002=252555=8=143=712715247=1048576=0=
10932=189.209.208.161=143=L002=252555=6=143=504810649=1048576=0=
10932=189.209.208.161=143=L002=252555=7=143=2975840=1048576=0=
10932=189.209.208.161=143=L002=252555=5=143=2305115=1048576=0=

¿Cómo puedo hacer para que en una línea se vea el campo 7 (las negritas)

10932=189.209.208.161=141=L001=252554=141=60228800=1048576=125802522=1048576=338700=1048576=352203=1048576=

y así con las demás lineas?

10932=189.209.208.161=143=L002=252555=8=143=712715247=1048576=0=
10932=189.209.208.161=143=L002=252555=6=143=504810649=1048576=0=
10932=189.209.208.161=143=L214F01GDL002=252555=7=143=2975840=1048576=0=
10932=189.209.208.161=143=L214F01GDL002=252555=5=143=2305115=1048576=0=

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.

explorer escribiste:Lo indicado antes: leer los ficheros antes, y pasarlos a una estructura de
Más información en perldoc perllol.

Creo que esto ya se enredó. Vamos a iniciar.

Yo tengo al inicio dos archivos: A y B; en A tengo datos que quiero comparar con el B.
Eso ya lo hice con el dato del '=='; hasta ahí todo bien, pude crear el archivo C.

Pero necesito darle formato al archivo C
Lo que necesito es saber cómo puedo leer el campo [6] que pongo con negrita y decirle al programa: guarda este dato, lee la segunda línea, y si encuentras el mismo dato, en un archivo nuevo imprime la primera línea y pon al final de la primera línea el campo [6] y [7] negritas de la segunda línea, y así con la tercera línea, etc, etc. Cuando encuentre un número diferente que haga el mismo procedimiento con el mismo número.

10932=189.209.208.161=141=L001=252554=8=141=60228800=1048576=0=
10932=189.209.208.161=141=L001=252554=6=141=125802522=1048576=0=
10932=189.209.208.161=141=L001=252554=7=141=338700=1048576=0=
10932=189.209.208.161=141=L001=252554=5=141=352203=1048576=0=
10932=189.209.208.161=143=L002=252555=8=143=712715247=1048576=0=
10932=189.209.208.161=143=L002=252555=6=143=504810649=1048576=0=
10932=189.209.208.161=143=L002=252555=7=143=2975840=1048576=0=
10932=189.209.208.161=143=L002=252555=5=143=2305115=1048576=0=

Al final debe quedar algo así

10932=189.209.208.161=141=L001=252554=8=141=60883404=1048576=0=1=126192520=1048576=342227=1048576=355635=1048576

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)

explorer escribiste: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

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

65. use Data::Dumper;
66. print Dumper \%segundo_fichero;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Domo arigato mister Explorer; es justamente la respuesta, mil gracias; doy por cerrado este caso.

Mil mil mil mil mil gracias.