perl - 如何使用 perl 为应用程序输出添加时间戳

Question

我有一个命令行应用程序，它在运行时提供命令行输出。当我将它写入文件(例如:app >> log.txt)时，它都显示在文本文件中，就像它出现在终端中一样。我需要能够为输出加上时间戳，这样如果我让它继续运行，我就可以回来查看它何时打印。
我尝试过管道到 perl 脚本:

#!/usr/bin/env perl
use strict;
use warnings;
while (<STDIN>) {
  print time.": $. : $_";
}

使用此命令:

./app | perl timestamp.pl >> test.log 2>&1

但是日志是空的。很抱歉，我无法更具体地了解我正在运行的应用程序。

Answer 1

受缓冲之苦？ Set

$| = 1;

在脚本的顶部。