Foro - Perl en Español

por **colorado** » 2011-02-24 16:07 @713

Tengo los siguientes archivos:

log.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

blancanieves -animacion

Balada Triste De Trompeta -drama

Cisne Negro -thriller

Caracremada -drama

jungla de cristal -accion

Saw VII -terror

Los Próximos Tres Días thriller

El Oso Yogui -animacion 

Sin Retorno -drama 

El Santuario -accion

...............

...............

....................

.............
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

busca.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

accion

animacion

dramaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Con el siguiente script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (BUSCA, 'busca.txt');
my @busca = <BUSCA>;
chomp @busca;
close(BUSCA);
 
for (my $i = 0; $i < @busca; $i++) {
    open(LOG, "<   log.txt");
    open(LOGSAL, "> encontradas.txt");
    my @contenido = <LOG>;
    foreach my $linea (@contenido)
    {
        if ($linea =~ m/$busca[$i]/)
        {
            print LOGSAL $linea;
        }
    }
    close(LOG);
    close(LOGSAL);
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es esta salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

jungla de cristal -accion

El Santuario -accion

blancanieves -animacion

El Oso Yogui -animacion

Balada Triste De Trompeta -drama

Caracremada -drama

Sin Retorno -dramaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo consigo cambiando esta línea:
open(LOGSAL, "> encontradas.txt");
por,
open(LOGSAL, ">> encontradas.txt");

Pero quiero hacerlo sin cambiar esa línea.

Cambiando esta línea:
print LOGSAL $linea;
por,
print $linea;

La salida por pantalla es buena.

¿Cómo puedo hacerlo?

Un saludo

#!/usr/bin/perl
use common::sense;      # sentido común
use autodie;            # autosacrificio
use Perl6::Slurp;                    
 
my @log      = slurp 'log.txt'  , {chomp => 1};
my @busca    = slurp 'busca.txt', {chomp => 1};
 
my $búsqueda = join q[|], @busca;       # construimos una regex con alternativas
 
open my $ENCONTRADAS, q[>], 'encontradas.txt';
 
for my  $log (@log) {                   # para todos los @log
 
    if ($log ~~ /$búsqueda/o) {         # si en el $log encontramos la $búsqueda
 
        say $ENCONTRADAS $log;          # lo imprimimos
    }
}
 
close $ENCONTRADAS;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **colorado** » 2011-02-24 17:16 @761

Muy bueno, explorer, muchas gracias.

No te imaginarias el tiempo que he invertido para intentar solucionarlo :oops:

y tu con dos movimientos... le diste jaque mate.

Otra cuestión:

Me gustaría que los resultados se mostraran en orden de estado de log.txt,
para que el resultado de encontradas.txt quedara así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

blancanieves -animacion

Balada Triste De Trompeta -drama

Caracremada -drama

jungla de cristal -accion

El Oso Yogui -animacion

Sin Retorno -drama

El Santuario -accionColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Cómo lo hago?

por **explorer** » 2011-02-24 17:21 @764

Debes cambiar el orden de los bucles for(). Es decir, el exterior debe recorrer las líneas de log.txt. De esa manera, son esas entradas las que marcarán la forma de la salida.

Precisamente, así es como está en mi versión, y por eso da la salida en el orden que pides.

por **colorado** » 2011-02-24 17:27 @769

Ok, entendido, máquina.

Entrenaré con la otra versión y con el cambio de los bucles for().

Muy agradecido

Foro - Perl en Español

Buscar palabras en un texto

Buscar palabras en un texto

Publicidad

Re: Buscar palabras en un texto

Re: Buscar palabras en un texto

Re: Buscar palabras en un texto

Re: Buscar palabras en un texto

¿Quién está conectado?