[Perl] lectura interactiva de archivo

[Salvador Ortiz Garcia]

On Tue, 2002-05-21 at 12:23, Joel Mu=F1oz wrote:
>=20
> Hola Foro
>=20
> estoy tratando de leer la salida estandar de un " tail -f nombre_archivo.=
log=20
> "
> para poder procesar esa salida.

El asunto es m=E1s simple pues emular un "tail -f" es trivial en perl:


open(FILE,'archivo.log');
while(1) {             # Forever
    while($_ =3D <FILE>) {
        if(/TIME_OUT/) {
            #Lo que tengas que hacer
        }
    }
    #Se acabo?, no me digas! :-)
    sleep(1);         # Espera un momentito
    seek(FILE, 0, 1); # limpia eof
    # Y va de nuez
}


Saludos,

Salvador Ortiz.