linux - 在 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 函数，这意味着 sleep 时间参数不是整数；您可以将其设置为您的系统可以处理的任何小数秒。