如何在不等待Perl換行的情況下立即打印文本？

Question

我在perl中有一個計算量很大的任務，並且希望通過在計算的每個部分完成後打印一段時間來通知用戶計算正在進行。不幸的是，在我打印「\ n」之前，我的期間都沒有打印。我該如何解決這個問題？

Answer 1

您需要爲標準輸出設置自動刷新。例如：

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

Answer 2

設置$|=1開始打印之前。例如。

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

Answer 3

參見常見問題解答How do I flush/unbuffer an output filehandle? Why must I do this?及注意事項：

除了$|特殊的變量，你可以使用binmode給你的文件句柄:unix層，這是無緩衝...

對於一般問題，你可能想看看Time::Progress：

%b

%B

進度條，看上去像：

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

Answer 4

一個優秀的文章中，你應該閱讀：Suffering from Buffering?

Answer 5

什麼工作對我來說是放線

STDOUT->autoflush(1); 

我行

print "."; 

我現有的循環中之前。沒有使用睡眠，因爲害怕更慢地放慢速度。