Foro - Perl en Español

por **asegurac** » 2011-02-25 17:20 @763

Hola a todos, le escribo para solicitar su ayuda. Mi problema es el siguiente: tengo una lista de datos que deseo filtrar (archivo1.txt). Es decir, eliminar algunos de los elementos (utilizando el archivo2.txt). Los archivos originales contienen muchos más elementos.
El archivo1.txt contiene los siguientes datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

P21762

O25570

O25225

P56397

P55984

P69996

P14917

Q9R3B3

P14916

Q09064

Q09065

Q09066

Q09067

Q09068

Q8VN83Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El archivo2.txt:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

P21762

O25570Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Para ello he escrito el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl
 
open (FILE1, "archivo1.txt");
open (FILE2, "archivo2.txt");
 
my @firstdb  = <FILE1>;
my @seconddb = <FILE2>;
 
chomp @firstdb;
chomp @seconddb;
 
foreach $j (@seconddb)  {
        for $i(@firstdb){
        
        
 
                if ($j ne $i){
                print "$i\n";
                }
                
        }
        
}
 
 
close FILE1;
close FILE2;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El resultado que obtengo es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

O25570

O25225

P56397

P55984

P69996

P14917

Q9R3B3

P14916

Q09064

Q09065

Q09066

Q09067

Q09068

Q8VN83

P21762

O25225

P56397

P55984

P69996

P14917

Q9R3B3

P14916

Q09064

Q09065

Q09066

Q09067

Q09068

Q8VN83Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En lugar de filtrar la lista de archivo1.txt, éste se imprime varias veces.

El resultado esperado sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

O25225

P56397

P55984

P69996

P14917

Q9R3B3

P14916

Q09064

Q09065

Q09066

Q09067

Q09068

Q8VN83Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como pueden ver, en el resultado esperado se han eliminado los dos primeros elementos de archivo1.txt.

Supongo que algo debo estar definiendo mal en los bucles. ¿Podría alguien ayudarme?

Saludos.

#! /usr/bin/perl
 
open (FILE1, "archivo1.txt");
open (FILE2, "archivo2.txt");
 
my @firstdb  = <FILE1>;
my @seconddb = <FILE2>;
 
chomp @firstdb;
chomp @seconddb;
 
PRIMERO:
for $i (@firstdb) {
    for $j (@seconddb) {
        next PRIMERO if $j eq $i;       # si hay coincidencia, no lo pintamos
    }
    print "$i\n";                       # no hubo ninguna coincidencia con @seconddb
}
 
close FILE1;
close FILE2;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **asegurac** » 2011-02-25 17:50 @784

Muchas gracias, ¡funciona!

En la línea 12, al colocar "PRIMERO:" antes de los bucles, ¿qué estás definiendo?

por **explorer** » 2011-02-25 18:08 @797

Le estoy poniendo una etiqueta al bucle for() más externo. Así, cuando queremos ejecutar el next(), indicamos cuál de los dos bucles for() quiero que se refiere ese next().

Como hemos encontrado una coincidencia con el segundo fichero, no hace falta seguir mirando, ni pintar el valor del primer fichero, por lo que pasamos a analizar el siguiente.

Foro - Perl en Español

Filtrar lista de datos

Filtrar lista de datos

Publicidad

Re: Filtrar lista de datos

Re: Filtrar lista de datos

Re: Filtrar lista de datos

¿Quién está conectado?