Foro - Perl en Español

por **titantux** » 2013-02-02 22:50 @993

Son únicas, no pueden repetirse en el archivo "a".

Y pueden no encontrarse en "b" (que es el NO MATCH), y si lo hacen solo deben de estar una vez en el archivo "b" (MATCH).

#!/usr/bin/perl 
use strict;
use warnings;
use autodie;
 
## Leemos el archivo "b" y nos quedamos con la parte interesante
my %b;
 
open my $IN2, '<', $ARGV[1];
while (<$IN2>) {
    my $valor = (split /[|]/)[6];
    $valor = substr $valor, 3, -2;
    $b{$valor} = 1;
}
close $IN2;
 
## Hacemos el bucle por el archivo "a"
open my $IN1, '<', $ARGV[0];
while (my $linea = <$IN1>) {
    my @columna    = split /;\s/, $linea, 7;
    my $calldetail = $columna[5] . '20' . $columna[0];
    $calldetail    = substr $calldetail, 2;
 
    print
        $b{$calldetail}                               # ¿Existe $calldetail en %b?
        ? "SI MATCH -> $calldetail  ** $linea"        # sí
        : "NO MATCH -> $calldetail  ** $linea"        # no
        ;
}
close $IN1;
 
__END__
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

La parte del print() es igual a escribir esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if ( $b{$calldetail} ) {                            # ¿Existe $calldetail en %b?
        print "SI MATCH -> $calldetail  ** $linea";
    }
    else {
        print "NO MATCH -> $calldetail  ** $linea";
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

solo que está un poco más condensada (usando el operador ternario '?:')

por **titantux** » 2013-02-04 21:07 @921

¡¡¡Mmmh, wow,interesante!! la velocidad de Perl, realmente se nota aquí.

real 0m29.455s
user 0m26.526s
sys 0m1.232s

La clave es: ¡¡sí usar el hash!!!, ¡¡tal como dice la teoría!! :shock:

Entonces, se estaba demorando porque, tardaba en encontrar la clave en la cadena de mayor longitud. Ahora que la clave y la cadena son de la misma longitud... ¡¡zaz!!!.. ¡¡velocidad luz!!

Nota: No había notado, el poder de la función "substr", hasta ahora. :twisted:

¡Gracias, explorer!

por **explorer** » 2013-02-05 05:29 @270

Pues el caso es que aún se puede acelerar un poco más...

Si en el archivo "b", todas las líneas tienen la misma longitud, no necesitamos el split() de la línea 11, y con el substr() de la línea siguiente sería suficiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $valor = substr $_, 31, 24;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y en el archivo "a", si todas las líneas tienen la misma longitud, estamos en la misma situación: quitamos las líneas 20 y 22 y modificamos la 21 así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $calldetail = substr($linea, 31, 10) . '20' . substr($linea, 0, 12);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ganamos unas milésimas más

Foro - Perl en Español

Búsqueda de cadenas en un archivo

Re: Búsqueda de cadenas en un archivo

Publicidad

Re: Búsqueda de cadenas en un archivo

Re: Búsqueda de cadenas en un archivo

Re: Búsqueda de cadenas en un archivo

Re: Búsqueda de cadenas en un archivo

Re: Búsqueda de cadenas en un archivo

¿Quién está conectado?