[Perl] Re: Lectura de Archivo.

[Fredy Gonzales P.]

Gracias por contestar , bueno aqui les explico mi problema :

Tengo un archivo de la siguiente estructura

INFORME1
    3030 10203  1002  30400  4050 2034  4050
INFORME2
   4423  3245    1030    4030  3040 4050  4054
   01
   5678  5678    1002  30400  4050 2034  4050
   01
INFORME3

INFORME4
   7789  3456    1030    4030  3040 4050  4054
   01
-------------------------------------------------------------
   8900  9999    9999    9999  4599 2345  6789




Lo que necesito es pasar esta informacion a base de datos, pero necesito 
saber..como leer la lineas de Detalles
ya que alli hay quiebre.

Entonces...yo pense..leer secuencialmente el archivo,

#!/usr/bin/perl -w

$LOGFILE = "DATOS.TXT";

open (LOGFILE, "DATOS:TXT") or die  ("No se puede abrir el archivo");

foreach $line (<LOGFILE>) {
     chomp($line);

      if ($line =~ /\AINFORME/)
         {
           #Hasta aqui todo bien hasta, pero ese seria la linea de la 
palabra INFORME..
           # necesito pasar a la siguiente linea...para capturar los datos
           # entonces..pensaba hacer otro foreach hasta que encuentre la 
palabra INFORME,
          # Que haria que salga de bucle.


Digame si se entiende...y si alguien me puede dar una luz


Saludos

Gracias por su tiempo

FG