perl - 如何在不等待 Perl 换行的情况下立即打印文本？

Question

我在 perl 中有一个计算量很大的任务，并且想通过在计算的每个部分完成后打印出一段时间来通知用户计算正在进行中。不幸的是，在我打印“\n”之前，我的月经都没有打印出来。我该如何解决这个问题？

Answer 1

您需要为 STDOUT 设置自动刷新。例子:

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