RE: Leer dos líneas a la vez

[Jose Rey]

Si solo quieres hacer join de las líneas impares y pares:

while(<>) {
   chomp;
   print $_ . <>;
}

Saludos
    Jose Luis Rey

----- Original Message -----
From: Cristóbal Alvarado Minic <ctam at worldnet.fr>
To: Perl Mongers Caracas <caracas-pm-list at pm.org>
Sent: Friday, February 01, 2002 4:14 PM
Subject: Leer dos líneas a la vez


>
>   Hola, les tengo una pregunta: ¿cómo hacer en Perl para leer desde un
> archivo dos líneas al mismo tiempo? Al interior de un
>
>   while (<>) { ...
>
> la variable $_ contiene la línea actual. Dispongo de un archivo de datos
en
> el cual cada fila está cortada por un carácter de retorno del carro, y lo
> único que quiero hacer es "pegarlas":
>
> 1a 2a 3a 4a 5a    -----> 1a 2a 3a 4a 5a 6a 7a 8a
> 6a 7a 8a
> 1b 2b 3b 4b 5b    -----> 1b 2b 3b 4b 5b 6b 7b 8b
> 6b 7b 8b
>
> ...y así sucesivamente.  Me vino la idea de usar split para dividir la
línea
> en curso y meter cada elemento de un par de líneas a la vez en una
variable,
> pero lo único que no hallo cómo hacer es leer _dos_ líneas al mismo
tiempo...
>   Agradezco cualquier idea que puedan suministrarme :-)
>
> --
> Cristóbal Alvarado Minic
> Laboratoire de Physique des Milieux Ionisés et Applications
> LPMIA - CNRS 7040
> Université Henri Poincaré Nancy I - Boulevard des Aiguillettes
> BP 239 - 54506 Vandoeuvre-lès-Nancy Cedex - France
> tel: (33) 03 83 91 21 09 - fax: (33) 03 83 27 34 98
> E-mail: ctam at worldnet.fr
> ------------------------------------------------------------------------
> Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
> "UNSUBSCRIBE caracas-pm-list" para desuscribirse.
> "INFO caracas-pm-list" para conocer las reglas de etiqueta.
> ------------------------------------------------------------------------

------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------