¿Cómo puedo imprimir texto inmediatamente sin esperar una nueva línea en Perl?

Question

Tengo una tarea computacionalmente costosa en Perl, y me gustaría informar al usuario que el cálculo está en curso mediante la impresión de un período después de que se complete cada parte del cálculo. Desafortunadamente, hasta que imprima "\ n", ninguno de mis períodos se imprime. ¿Cómo puedo abordar esto?

Answer 1

Debe configurar autoflush para STDOUT. Ejemplo:

use IO::Handle; 
STDOUT->autoflush(1); 
foreach (1..20) { 
    print '.'; 
    sleep(1); 
} 

Answer 2

configure $|=1 antes de comenzar a imprimir. P.ej.

perl -e ' $|=1; foreach (1..10) { print "$_ "; sleep(1); }' 

Answer 3

Ver las preguntas frecuentes y How do I flush/unbuffer an output filehandle? Why must I do this? nota:

Además de la variable especial $|, puede utilizar binmode para darle a su gestor de archivo de una capa :unix, que es sin búfer ...

Para el problema general, es posible que desee consultar Time::Progress:

%b

%B

barra de progreso que se parece a:

##############...................... 

Answer 4

Un excelente artículo que debe leer: Suffering from Buffering?

Answer 5

Lo que funcionó para mí fue poner la línea

STDOUT->autoflush(1); 

antes de mi línea de

print "."; 

dentro de mi bucle existente. No usé el sueño por miedo a desacelerar aún más las cosas.