[Perl] como saltar a una linea especifica?
Gabriel Lopez Nunez
galo@liceaga.facmed.unam.mx
Tue, 11 Dec 2001 16:04:00 -0600 (CST)
Hola lista, miren tengo lo siguiente para leer un archivo de texto:
while(<FILE>){
chomp();
next unless /KBytes/;
seek(FILE,10,1);
last;
}
Estoy buscando la palabra "kbytes" en cada linea, una vez encontrada
quiero saltarme 10 o n lineas adelante, lo ideal seria que seek me enviara
derechito a la linea que quiero para no seguir sangrando el ciclo, pero
no lo hace. Alguien sabe como hacerlo? (sin que suene a frase politica).
Segun lei seek lo hacia, pero creo que entendi mal. El 1 me posiciona en
la linea actual y el 10 es sumado para que me lleve 10 lineas adelante.
Saludos y gracias.