[perl] escritura de archivos dentro de ciclos while infinitos

[Von Eckenbrecher, Alejandro]

Hola a todos:
Estoy realizando un programa en perl que debe escribir a archivos dentro de
un bucle infinito (while 1 ).
Debajo encontran una version reducida de la idea de dicho programa.
al ejecutarlo me genera ambos archivos pero no escribe nada en ellos.

Desde ya, gracias a todos.

#!/usr/local/bin/perl

open mal,"> estadoth.dat";
open log1,">> cambioth.log";
while (1){
sleep (10);
print mal "prueba \n";
print log1 "prueba1\n";
}


Alejandro von Eckenbrecher
avonecke@nec.com.ar
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl