Foro - Perl en Español

si tengo un archivo .txt que se va llenado con datos a cada nada es decir como hago pa que ese archivo no crezca mas de un tamaño determinado ....que se sobresescriba.... pero que me de el tiempo necesario para hacer algunas cosas ....como expresiones regulares ....

gracias de antemano

Hola:

Puedes sacar el tamaño en KB de un archivo de la siguiente manera:

Código: Seleccionar todo

my $kbytes = (-s '/ruta/al/archivo.txt') * 1024;

print "El archivo mide $kbytes kb\n";


Entonces puedes checar constantemente el tamaño del archivo.

No sé si sea esto lo que buscas.

SALUDOS

Para actualizarlo podés crear un array cn las líneas que te interesan...Luego truncarlo, llevarlo a 0 y escribir el array que ya tenés...

Código: Seleccionar todo

@array = ('datos','Importantes');
truncate(DATABASE,0);
seek(DATABASE,0,0);
foreach my $linea (@array){
   print DATABASE $linea . "\n";
}


Espero que te sirva

Saludos