Perl 中是否有相当于“tail -f”的东西？

Question

我正在编写一个脚本，用于侦听日志文件的更改并采取适当的操作。目前我正在使用 open my $fh, "tail -f $logfile |"; 但理想情况下我不想使用系统调用。

我尝试过 File::Tail 但它的最小间隔为 1 秒（我尝试过传递较少的值，但默认为 1 秒，即使我传递了 0 秒）。我检查了它的来源，它似乎正在使用 sleep() ，它需要一个整数。在我尝试自己编写之前，还有其他选择吗？

谢谢。

Answer 1

1. 您是否知道 tail -f 默认情况下也使用 1 秒睡眠？这是真的！ （至少对于 GNU tail...）
2. File::Tail 实际上使用 Time::HiRes的sleep函数，表示休眠时间参数不是整数；您可以将其设置为系统可以处理的任何秒数。

Answer 2

文档中有很多好东西，包括这个问题的答案。来自 perlfaq5 的回答 如何在 perl 中执行“tail -f”？

---

第一次尝试

seek(GWFILE, 0, 1);

语句eek(GWFILE, 0, 1) 不会改变当前位置，但它确实清除了句柄上的文件结束条件，以便下一个使 Perl 再次尝试读取某些内容。

如果这不起作用（它依赖于你的 stdio 实现的功能），那么你需要更多类似这样的东西：

for (;;) {
  for ($curpos = tell(GWFILE); <GWFILE>; $curpos = tell(GWFILE)) {
    # search for some stuff and put it into files
  }
  # sleep for a while
  seek(GWFILE, $curpos, 0);  # seek to where we had been
}

如果这仍然不起作用，请查看 IO::Handle 中的clearerr方法，该方法会重置错误并结束句柄上的文件状态。

还有来自 CPAN 的 File::Tail 模块。

Answer 3

CPAN 有 File::ChangeNotify

Answer 4

在我看来，像您已经做的那样使用 tail -f 管道没有任何问题。在许多情况下，追求语言纯度（例如“无系统调用”）会适得其反。

另外，我在长时间运行的进程中发现了 File::Tail 的问题。不幸的是，我无法用任何确凿的证据来证实这一说法，因为它发生在很久以前，我没有调试问题，而是将 File::Tail 的使用替换为 tail -F代码>管道代替。