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.
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;
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
que puede quedar resumido en
Using perl Syntax Highlighting
#!/usr/bin/perl
open my $fh, 'kk.txt';
while (<$fh>) {
if (/^fa0\/2/ .. /!/) {
print;
}
}
close $fh;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
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).