Foro - Perl en Español

por **danusol** » 2011-07-05 07:15 @343

Hola,

tengo un archivo de texto del que quiero coger únicamente las líneas que están entre #START y #END, pero solo la zona que tiene dos columnas y no tres, y guardar los valores de la segunda columna para sumarlos. Es decir, mi archivo sería así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Línea1

Línea2

Línea3

..

#START

column  value

1  5

2  7

3  2

4  17

5  20

#END

línea52

línea53

..

#START

column  value  error

1  5  2

2  7  1

3  2  2

4  17  1

5  20  1

#END

línea100

línea101

línea102

..Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿cómo puedo seleccionar únicamente esa zona?

Gracias

D

#!/usr/bin/perl
use 5.010;
use strict;
use autodie;
 
open my $FICHERO, q[<], 'kk.txt';       # tengo un archivo de texto
 
my $suma;
 
while (<$FICHERO>) {                    # del que quiero coger únicamente
 
    if (/^#START/ .. /^#END/) {         # las líneas que están entre #START y #END
        my @campos = split;
        next if @campos != 2;           # pero solo la zona que tiene dos columnas
        #say "@campos";
        $suma += $campos[1];            # y guardar los valores de la segunda columna para sumarlos
    }
}
 
close $FICHERO;
 
say "Suma: $suma";
 
__END__
Suma: 51
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **danusol** » 2011-07-06 02:20 @139

¡Gracias, explorer!

No sabía que el operador rango se podía usar así, y por lo que he mirado en Google parece que suele ser algo común el no usarlo.

Una cosa más aprendida.

Foro - Perl en Español

Seleccionar texto en un archivo entre dos marcas

Seleccionar texto en un archivo entre dos marcas

Publicidad

Re: Seleccionar texto en un archivo entre dos marcas

Re: Seleccionar texto en un archivo entre dos marcas

¿Quién está conectado?