通过管道输入 Perl 脚本

Question

我需要将某些日志条目通过管道传输到 perl 脚本中，但无法使用 ARGV 或 STDIN 使其工作。

tail -f messages | grep --line-buffered "auth failure:" | awk '{print $1,$2,$3,$10}' | test3.pl

也许正在缓冲某些内容，但似乎没有任何内容进入 test3.pl，但如果我省略 | test3.pl 然后我看到 perl 中应该包含什么内容：

Feb 3 16:09:36 [user=someusername]  

Answer 1

如果未连接到终端，awk 将默认缓冲输出。调用 fflush() 或 system("") 在您的 awk 脚本中。

Answer 2

听起来 awk 在连接到终端时不执行缓冲或行缓冲，而在连接到终端以外的其他设备时执行块缓冲。这是非常标准的行为，这就是您必须将 --line-buffered 传递给 grep 的原因。

您需要找到一种方法来禁用 awk 的缓冲。我不知道该怎么做，但我可以提供 Perl 替代方案。

tail -f messages \
   | perl -lne'BEGIN{$|=1} /auth failure:/ && print join " ", (split)[0,1,2,9]' \
      | test3.pl

另请参阅：File::Tail。

Answer 3

来自管道的输入将位于您的STDIN中。是什么让你认为它不存在？您可以使用它来阅读它。

while (<>) {
  print;
}

此外，您可以在一个简单的 Perl 程序中完成所有这些步骤。