Ver Tema - Extraer una línea desde un archivo de texto en el disco duro

jorG33 · 2010-09-06 16:43 @738

Estimados, soy principiante en Perl y deseo hacer lo siguiente:
Tengo un archivo de texto en el disco duro y quiero sacar líneas limitadas entre 2 caracteres, así:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

fa0/1

line1

line2

line3

!

fa0/2

line1

line2

line3

!

fa0/3

line1

line2

line3

!

Digamos que deseo obtener las líneas entre fa0/2 y !.

Intenté hacerlo, pero hasta ahora no me sale... Saludos.

explorer · 2010-09-06 17:05 @753

Bienvenido a los foros de Perl en Español, jorG33.

Puedes usar un operador rango para saber si la línea leída está dentro de las líneas que nos interesan.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open my $fh, 'kk.txt';
 
while (my $linea = <$fh>) {
 
    if ($linea =~ /^fa0\/2/ .. $linea =~ /!/) {
        print $linea;
    }
}
 
close $fh;

que puede quedar resumido en

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open my $fh, 'kk.txt';
 
while (<$fh>) {
    if (/^fa0\/2/ .. /!/) {
        print;
    }
}
 
close $fh;

Si solo quieres las líneas entre las marcas, pero sin las marcas, las puedes obviar colocando la línea next if $linea =~ /^fa0\/2|!/; justo antes de imprimirla (o de lo que queramos hacer con ella).

jorG33 · 2010-09-07 10:27 @477

Excelente... era lo que buscaba.
Gracias por tu tiempo...

Publicidad

Socializa