Foro - Perl en Español

por **Erick2186** » 2012-06-05 13:18 @596

Buenas tardes, desde México.

Tengo una duda tal vez muy básica... lo que quiero hacer es poder comparar dos archivos con el primer archivo [campo1]~[campo2]~[campo3]~...~[campon],

y el segundo archivo [campo1]~[campo2]~[campo3]~...~[campon]

El separador es '~'.

Al estar buscando en el foro encontré el siguiente código:

#!/usr/bin/perl
use common::sense; # sentido común
use autodie; # y sacrificio
use File::Slurp; # sin dejar de chupar
## Leer ficheros
my @primer_archivo = read_file('Nuevo.txt');
my @segundo_archivo = read_file('Viejo.txt');

## Transformación del segundo archivo
for my $linea (@segundo_archivo) {
$linea = (split " ", $linea)[0]; # Nos quedamos solo con
# la primera cadena de cada línea
}
## Apertura del fichero de diferencias
open my $fichero_diferencias, '>', 'Diferencias.txt';
## Comparación
for my $linea (@primer_archivo) {
my $primera_cadena = (split " ", $linea)[0];
unless ($primera_cadena ~~ @segundo_archivo) { # a menos que la $primera_cadena esté en el @segundo_archivo,
print $fichero_diferencias $linea; # lo escribimos en el $fichero_diferencias
}
}
## Cierre del fichero de diferencias
close $fichero_diferencias;
__END__

Me "sirvió" pero tarda mucho debido a la cantidad de información en la línea que se maneja, aparte no me "sirve" para lo que necesito debido a que los campos que necesito que sean idénticos serían el [campo1] del primer archivo con el [campo1] del segundo archivo y el [campo3] del primer archivo con el [campo3] del segundo archivo y no toda la línea.

Aparte quisiera que se generara un tercer archivo con toda la línea.

De antemano, les agradezco su ayuda.

Con la línea anterior creaste un vector el cual cada elemento es una referencia de otro arreglo que contiene cada una de las columnas.

Y luego para hacer referencia a cada uno de los campos lo haces de la manera siguiente:

Primero indicas qué línea y luego qué columna quieres. Supongamos que quieres la línea 5 y la columna 3.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$variable = $vector [5][3] # en $variable quedará el valor de la tercera columna de la quinta fila
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Solo quedaría que hicieras un recorrido por todo tu archivo y que compararas las columnas que tu quieres y realizaras los procesos que necesitas cada vez que sean iguales.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

OPEN (NUEVO,nuevo.txt) or die
OPEN (VIEJO,viejo.txt) or die 
 
my @vectornuevo = <NUEVO>;
@vectornuevo = map { [ split /~/, $_ ] } @vectornuevo;
my $longitud = scalar (@vectornuevo);
 
my @vectorviejo = <VIEJO>;
@vectorviejo = map {[split /~/,$_]} @vectorviejo;
 
my $indice=0;
 
while ($indice<$longitud){
   if ($vectornuevo[$indice][1]==$vectorviejo[$indice][1]){
      #proceso si el [campo 1] del primer archivo es igual al [campo 1] del otro archivo
   }
   
   if ($vectornuevo[$indice][3]==$vectorviejo[$indice][3]){
      #proceso si el [campo 3] del primer archivo es igual al [campo 3] del otro archivo
   }
 
   $indice++;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Éxitos.

por **explorer** » 2012-06-05 18:06 @795

Lo que no sabemos es qué línea, de los archivos, es la que quiere grabar.

Supongamos que es la del segundo archivo.

Esta es otra solución, basada en hash.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.12;
use autodie;
 
open my $ARCHIVO1, '<', 'archivo1';
open my $ARCHIVO2, '<', 'archivo2';
open my $ARCHIVO3, '>', 'archivo3';
 
# 1- Leemos el primer archivo, almacenando la información en el hash
my %archivo1;
 
while (my $linea = <$ARCHIVO1>) {
    chomp $linea;
 
    my($campo1, undef, $campo3) = split /~/, $linea, 4;
 
    $archivo1{"$campo1~$campo3"} = 1;
}
 
# 2- Leemos el segundo archivo, comparando y grabando
while (my $linea = <$ARCHIVO2>) {
    chomp $linea;
 
    my($campo1, undef, $campo3) = split /~/, $linea, 4;
 
    if ($archivo1{"$campo1~$campo3"}) {
 
        say $ARCHIVO3 $linea;
    }
}
 
close $ARCHIVO1;
close $ARCHIVO2;
close $ARCHIVO3;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que hacemos es, para el primer archivo, almacenar la información de los campos como claves de un hash. Luego, recorremos las líneas del segundo archivo, sacar sus campos, y si estos forman una de las claves que ya teníamos, pues es que hay coincidencia, así que grabamos la $linea en el $ARCHIVO3.

Mejora de velocidad: si sabemos que los archivos siempre van a tener más de 3 campos, podemos quitar los chomp() y cambiar el say() por un print() (porque no es necesario quitar caracteres de fin de línea para luego ponerlos).

por **Erick2186** » 2012-06-06 00:54 @079

Muchísimas gracias a los dos por su pronta respuesta. Me sirvió de mucho. Ya solo le modifiqué lo que necesitaba por que era la diferencia, con un símbolo de diferente a "!".

Ahora a seguir profundizando en este lenguaje y con "maestros" como ustedes que resuelven las dudas muy bien explicadas y elaboradas. Uno se siente a gusto de preguntar...

GRACIAS

por **Erick2186** » 2012-06-12 13:00 @583

Disculpen la molestia, pero me surgió una duda.

my($campo1, undef, $campo3) = split /~/, $linea, 4;

¿Por qué o para qué sirve el 4, o qué indica?

por **explorer** » 2012-06-12 15:53 @703

Indica el número de veces que split() debe "partir" la línea.

Con '4', indicamos que queremos que solo parta la línea en 4 partes, de las que las 3 primeras irán a parar al lado izquierdo de la asignación.

Más información en perldoc -f split.

por **Erick2186** » 2012-06-13 23:35 @024

Ooook... Muchíiisimas gracias... todo quedó más claro... Gracias, explorer.

Foro - Perl en Español

Comparar 2 archivos en 2 campos

Comparar 2 archivos en 2 campos

Publicidad

Re: Comparar 2 archivos en 2 campos

Re: Comparar 2 archivos en 2 campos

Re: Comparar 2 archivos en 2 campos

Re: Comparar 2 archivos en 2 campos

Re: Comparar 2 archivos en 2 campos

Re: Comparar 2 archivos en 2 campos

¿Quién está conectado?