perl文件::尾部延迟

Question

我正在使用perl File :: Tail库来拖尾文件的输出并解析它的输出。

一切正常，但在我开始输出之前启动脚本后似乎有大约10秒的延迟。第一次读取后，它工作正常，所有输出都是瞬时的。延迟期间的所有写入似乎一旦开始工作就会输出，所以我不会丢失任何数据。我不认为它与我正在阅读的文件无关，因为运行常规的“tail -f”会立即生效。

继承整个剧本：

#!/bin/perl
use File::Tail;

$file=File::Tail->new("file.txt");

while (defined($line=$file->read)) {
    print "$line\n";
}

我从网上的某个地方复制了这个例子。我不太熟悉perl或File :: Tail我希望我做错了什么。任何帮助将不胜感激。

Answer 1

请参阅文档中的interval选项：

  

文件之前将要休眠的初始秒数（实数）   先检查一下默认值为十秒，表示＆＃34; File :: Tail＆＃34;会睡10秒然后   确定文件中出现了多少新行。