Foro - Perl en Español

Hola, tengo un problema para comparar y aprovechar dos ficheros, que son de este tipo:

FICHERO A:


FICHERO B:


El fichero A es mucho más extenso que el B (se podría decir que A es más general y B más específico); por otro lado, B es el que contiene la información actualizada. Lo que querría es guardar la información del fichero B completa, y solo las líneas de A que contengan 'situación:' o 'mayoría:'.

Dicho de otra manera: quiero hacer un nuevo fichero con toda la información posible para todos los elementos de B y para los elementos de A cuya situación o mayoría queden especificadas, y lo que no quiero es que haya líneas con nombres, apellidos y lugar que ocupan en la familia repetidos (si en B no aparecen la situación y/o la mayoría, que éstas se copien de A; si en A aparecen valores diferentes para esos campos, que se copie solo la línea correspondiente de B y se descarte la de A).

Espero que se me entienda. Hasta ahora he conseguido hacer todo lo que quería, menos eliminar las líneas idénticas a otras con menos información (por ejemplo, entre 'ana lópez tía situación:divorciado' de A y 'ana lópez tía' de B, solo querría que apareciera la línea del fichero A).

Si alguien me puede ayudar, lo agradezco de veras.

Yo primero leería todo el fichero A en memoria, guardándolo en un hash, siendo las claves el texto que forma las tres primeras columnas. Y el valor sería el resto de la línea.

Luego, abriría el fichero B, y lo leería línea a línea.

Por cada línea, hago lo mismo: separo las tres primeras columnas del resto. Las tres primeras serán la clave, y el resto, el valor.

Luego, miro a ver si existe la clave en el hash del fichero A. Si no existe, es que es una línea nueva, así que creo una nueva entrada en el hash, con esa clave y valor.

Si existe, solo tengo que comparar la longitud del valor con el valor de la correspondiente entrada del hash. Según sea mayor o menor, sobreescribiré la entrada del hash.

Terminado de leer el fichero B, solo queda crear el contenido resultado, sacándolo de forma ordenada desde el hash.

Muchas gracias. Llevo intentando un tiempo hacerlo como me has dicho, explorer, pero al querer imprimir la información del hash me encuentro con un problema que no sé cómo se resuelve; he comprobado otros programas antiguos y por lo menos la sintaxis utilizada para imprimir la clave y el valor no están mal (he probado a hacerlo de varias maneras, con foreach(), con while() y después each()... y siempre tengo el mismo problema), o eso creo yo, así que debe de ser otra cosa.

Copio aquí parte del programa, por si alguien me puede decir dónde estoy metiendo la pata:




El problema hasta ahí es que los valores no se me imprimen, sino que el resultado es este:



A ver si alguien me puede ayudar; la manera de dividir la línea en $relative y $info es una de tantas que he probado (pero como he visto que no influye en los resultados, he dejado sin más la última que probé, que puede no ser la mejor).

Gracias de antemano.

El problema es que estás

push (@{$family_1{$relative}}, $info);

guardando la información $info como un elemento de un array, como valor del hash. Es decir, estás creando un hash de array. Por eso, en la salida, lo que obtienes es ARRAY(0x...). Perl te dice que estás intentando imprimir un array como si fuera un escalar.

Debería bastarte con

$family_1{$relative} = $info;

Así, estás guardando la $info asociada a $relative, como un simple escalar.

Lo que te falta es la parte de comparar la $info anterior, para la misma clave $relative.

Esto me pasa por copiar directamente cosas "útiles" de programas anteriores, sin pararme a mirar. Seguro que solo no lo veo ni en 100 años, muchas gracias de nuevo. Ahora mismo sigo con esto, a ver.

Bueno, ahora ya creo que me sale todo como quería:

FICHERO 1


FICHERO 2


PROGRAMA:



TEXTO RESULTANTE:



Cualquier comentario se acepta, por supuesto. Siempre digo lo mismo, pero muchas gracias por la ayuda y por la rapidez.

Hay un problema con la descripción del problema...

En el primer mensaje dices que quieres quedarte con la línea más larga de los dos ficheros, para la misma persona, en el caso de que en los dos ficheros esa persona tenga informaciones distintas.

Pero a continuación, dices que prefieres, en esa situación, siempre quedarte con la información del primer fichero. Y esa es la solución que resuelve el programa.

¿Estás seguro de que está bien, y lo que sobra es lo de "la línea más larga"?

Tienes razón, me equivoqué al describir el problema (también es la tercera vez que escribo este mensaje, me he hecho un lío).

Creo que sobre todo es que he invertido el orden en que se pasan los ficheros al programa (al principio era primero el más específico y actual, y después el más extenso y antiguo; ahora es justo al revés).

Por otro lado, interesa solo guardar la información del fichero más actual en caso de conflicto (del abuelo, por ejemplo, si solo se tomara la línea más extensa se guardaría 'casado' en lugar de 'viudo'). Siento el lío, pero muchas gracias por poner tanta atención en los problemas.

Ya sé que sería algo muy aburrido, pero estaría genial que pudieras reeditar el primer mensaje, con la descripción correcta. Te lo pido porque mucha gente que está aprendiendo Perl usa estos foros para practicar: leen la pregunta e intentan resolverlo por su cuenta. Algo así como unos ejercicios de clase. Si les facilitamos la tarea de entender bien el problema desde el principio, sería estupendo.

Ahora agregas un detalle más, que es el que define qué fichero elegir: si el más moderno o el más antiguo.

El botón de editar el mensaje lo tienes abajo a la derecha, en cada mensaje publicado.

Ya me ocuparé, luego, de reeditar el resto del hilo.

Es verdad, mejor dejarlo bien desde el principio. Creo que ya está (si no es así, lo corregiré; si es así, borraré después este mensaje).