Foro - Perl en Español

Bueno, os comento lo que estoy haciendo y el código que he hecho pero que no me hace nada... Tengo 2 ficheros .csv con unos cuantos campos. La idea es comparar los 2 ficheros y actualizar en un tercero los campos que aparezcan nuevos. Me explico:

Tendríamos como fichero de entrada1:

Y queremos comparar los campos de la segunda columna con otro fichero que pongo a continuación, que está en el mismo formato, y si detecta un campo de la segunda columna que no esté en el fichero entrada1 pues lo metemos en un tercer fichero acompañado de todos los campos también de su fila.

El fichero que le vamos a pasar para ver si hay actualizaciones sería este fichero:

Como veis, en este último fichero tenemos los mismos campos pero se nos ha actualizado un campoN. Aunque ponga en todas las columnas campoN, el único que quiero comparar es el de la segunda columna, y como detecta que es campoN que no estaba en el otro fichero pues lo coge junto a todos los campos de su fila. Es decir, nos quedaría en el tercer fichero:

Es lo que he intentado hacer en el siguiente código pero creo que con bastantes fallos:


A ver si me podéis echar una mano. ¡¡Muchas gracias!!

Una opción sería leer todo el primer fichero, quedarnos con los campos de la segunda columna, y luego, leer el segundo fichero línea a línea, y si es un registro nuevo, lo sacamos.

Como es costumbre, cuando se trata de recordar cosas, lo normal, es usar un hash (diccionario).

¡Muchas gracias, explorer!

No lo he probado todavía porque no lo tengo en el ordenador en el que trabajo con Perl. Una preguntilla: el fichero 2 que es el que tiene los campos para actualizar, perfecto, entiendo lo que haces que cuando coge una variable que no ha leído la mete en el fichero de salida. Pero quiero que además de esa variable, que es la segunda columna, se meta las otras 4 columnas. ¿Cómo lo haría, en el segundo fichero además de leer la segunda columna leo todas las demás y luego las escribo?

¡Gracias!

Fíjate bien en la línea 28...

Perdona, jeje... ¡Gracias!

Un pregunta, explorer: ¿cuál es el motivo de poner?



Es que me estaba dando problemas el código al integrarlo en un script con más cosas y demás y me daba fallo al reconocer una variable y era problema de eso ya que lo he comentado y se me ha ejecutado correctamente...

* use strict; Nos comprometemos a que a partir de esta línea vamos a programar de forma "estricta" (generar un error en tiempo de compilación si usamos referencias simbólicas, generar un error en tiempo de compilación si estamos usando variables que no han sido declaradas antes, y generar un error en tiempo de compilación si estamos usando una palabra suelta como si fuera una llamada a una función)

* use warnings; muestra avisos de cualquier cosa sospechosa de ser un error de programación (entre otras cosas).

El primero te obligará a programar de forma "correcta". En lugar de hacer programas así:

nos obliga a escribirlos así:


Como ves, nos vemos obligados a declarar todas nuestras variables con my(), para indicar que todas ellas van a ser locales a nuestro programa (no van a ser conocidas fuera de él). Y nada de referencias simbólicas o usar palabras sueltas.

Seguro que el fallo que te sale es porque estás usando variables sin declararlas con my().

Esto, tiene una enorme ventaja cuando estás empezando a programar en Perl, porque perl te va a avisar de cada variable nueva que él encuentre y no hayas declarado: de esa manera localizarás inmediatamente errores de programación por fallos en la escritura. Ejemplo:

Si no tuvieras el 'strict' puesto, perl no daría ningún error (Perl es un lenguaje muy liberal y, si no le advertimos, admitirá muchos engendros que escribamos), pero no saldría lo que querríamos.

Si en vez de 'strict' estuviera puesto solo 'warnings', perl nos informará de esta manera:
que es decir: "he encontrado algo raro, pero aún así, lo he ejecutado".

El uso de los dos es una buena manera de aprender a programar Perl, y además, saber que tenemos la tranquilidad de que el propio perl nos informará de los errores de programación (al menos, los referidos a fallos de escritura).

Yo, particularmente, desde que uso Perl v5.10, uso el módulo common::sense, que activa estos y otros controles, para conseguir y obligarte a escribir programas Perl muy legibles.

Perfectamente aclarado. ¡Muchas gracias!