Foro - Perl en Español

por **jazstappung** » 2012-02-24 09:21 @431

Mil gracias, explorer.
Me has ayudado mucho.

#!/usr/bin/perl
use 5.010;
use File::Slurp;
 
my %hash;                       # Estructura que almacena las líneas
                                # Es un hash (indexado por los valores de la primera columna)
                                # cuyos valores son un array que guarda el valor numérico y
                                # un array con la lista de líneas coincidentes)
my @file = read_file('kk.txt');
 
for (@file) {                               # Para todas las líneas
    my($col1, $col4) = (split)[0,3];        # Extraemos la primera y cuarta columna
 
    if (                                    # Si...
        not $hash{$col1}                    # nunca hemos vista esa primera columna,
        or  $hash{$col1}[0] > $col4         # o la cuarta columna es menor que la teníamos recordada
    ) {
        $hash{$col1} = [ $col4, [ $_ ] ];   # guardamos la línea como la primera que asociamos al valor numérico
    }
    elsif (                                 # O si...
        $hash{$col1}[0] == $col4            # es una línea que tiene el mismo número mínimo
    ) {
        push @{$hash{$col1}[1]}, $_;        # agregamos la línea a la lista de líneas con el mismo valor
    }
}
 
for my $col1 (sort keys %hash) {            # Para todas las primeras columnas...
    for (@{$hash{$col1}[1]}) {              #     Para todas las líneas con la misma columna...
        print;                              #         La imprimimos
    }
}
 
__END__
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **jazstappung** » 2012-02-24 11:59 @541

explorer, ¿existe alguna diferencia en cuanto a código si en columna 4 existen letras?

Debido a que hay algunos valores con e: 10e-4.

Gracias

por **explorer** » 2012-02-24 12:10 @548

10e-4 sigue la notación de los números en exponencial, así que no debería haber problemas, ya que la comparación se hace con operadores numéricos ('>').

por **jazstappung** » 2012-02-24 13:51 @619

Cuando pruebo el archivo de prueba,

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A       1       ABC     1e-12

A       4       XYZ     1e-12

A       9       QWE     1e-15

A       8       ASD     1e-18

A       8       POI     1e-12

B       1       AWE     1e-0

B       8       QWD     1e-1

C       3       ZSE     1e-15

D       2       MLP     1e-3

D       0       OKM     1e-4Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

con el último código que subiste me arroja lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A       8       ASD     1e-18

B       8       QWD     1e-1

C       3       ZSE     1e-15

D       0       OKM     1e-4Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Por qué sucede esto?

por **explorer** » 2012-02-24 18:37 @817

De todas las líneas que comienzan por 'A', la que menor valor tiene en la cuarta columna, es la que tiene el valor 1e-18.

Y lo mismo para 'B', 'C' y 'D'.

Foro - Perl en Español

Comparar línea con línea siguiente

Re: Comparar línea con línea siguiente

Publicidad

Re: Comparar línea con línea siguiente

Re: Comparar línea con línea siguiente

Re: Comparar línea con línea siguiente

Re: Comparar línea con línea siguiente

Re: Comparar línea con línea siguiente

¿Quién está conectado?