[Perl] Re: Lectura de Archivo.

[Antonio Galindo Castro]

> Message: 1
> Date: Thu, 11 May 2006 12:25:45 -0500
> From: "Fredy Gonzales P." <fredyg en negosat.com>
> Subject: [Perl] Lectura de Archivo
>
> Amigos :
>
> Soy nuevo en Perl, pero no en programacion, asi que estoy aqui por una
> problema
>
> Estoy leyendo un archivo secuencialmente, pero existe partes donde tengo
> que
> volver a leer la siguiente linea sin necesidad de llegar al final,
> cual es la instruccion con la cual tengo que ir a la inicio de la
> siguiente
> lectura.
>
> Aqui un ejemplo
>
> #!/usr/bin/perl -w
>
> $LOGFILE = "DATOS.TXT";
> open(LOGFILE) or die("Could not open log file.");


Esto podrías hacerlo sencillamente
open (LOGFILE, "DATOS:TXT") or die  ("No se puede abrir el archivo");

foreach $line (<LOGFILE>) {
>     chomp($line);
>
>      if ($line =~ /\Bloque1/)
>         {
>
>           #Aqui cuando ingreso al bloque1, tengo que leer una cuantas
> lineas
> hasta llegar al final del bloque y continuar con el otro bloque..


¿Por que no intentas usar expresiones regulares para definir tus bloques?

          # Mi pregunta...es puedo hacer otro foreach solo para leer este
> bloque.


Claro que puedes hacer otro foreach, no hay ningún problema en ese sentido.
Pero no sería más sencillo guardar lo que te interesa en otra estructura,
tal vez una hash con llaves que te ayuden a ver más fácilmente tus bloques.

        }
>
>
> }
>
>
>
¿Qué es lo que intentas hacer?  Tal vez hay una forma más fácil de lograrlo.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: http://tlali.iztacala.unam.mx/pipermail/perl/attachments/20060512/d5827481/attachment.htm