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;

位于脚本的顶部。