[Perl] como saltar a una linea especifica?

Gabriel Lopez Nunez galo@liceaga.facmed.unam.mx
Wed, 12 Dec 2001 10:03:15 -0600 (CST)


S=ED, ya confirm=E9 que seek no era la solucion para este problema, pero en=
 la
cotidianidad de pru=E9bale y preg=FAntale aprend=ED varias formas de hacerl=
o.
Adem=E1s era solo un caprichito de optimizaci=F3n. En fin, les agradezco a
todos por su ayuda. Gracias y saludos.

P.D. Esta solucion me parecio la mas elegante

> Si, entendiste un poco mal, seek avanza por _caracteres_ no por l=EDneas,=
 y
> en realidad no existe, salvo que tus lineas todas sean de la misma
> longitud, forma de saber cuantos caracteres son diez l=EDneas sin leerlas
> primero.
>=20
> Por otro lado basta con que despues de encontrar tu patron, leas las n
> l=EDneas m=E1s antes de salir, por ejemplo con
>=20
>        while(<FILE>) {
> =09   if(/kbytes/) {
>                <FILE> for(0..9); # void context
>                last;
>            }
>        }
> =20
> Saludos
>=20
> Salvador Ortiz
>=20
>=20