perl - 如何读取不断更新的文件？

Question

我从外部服务器获取数据流(文本格式)，并希望将其逐行传递给脚本。该文件正在以连续的方式附加。这是执行此操作的理想方法。使用 Perl 的 IO::Socket 方法可以吗？最终，这些数据必须通过 PHP 程序(可重用)并最终登陆 MySQL 数据库。

问题是如何打开不断更新的文件？

Answer 1

在 Perl 中，您可以使用 seek 和 tell 从不断增长的文件中读取。它可能看起来像这样(从 perldoc -f seek 大量借用)

open(FH,'<',$the_file) || handle_error();  # typical open call
for (;;) {
    while (<FH>) {
        # ... process $_ and do something with it ...
    }
    # eof reached on FH, but wait a second and maybe there will be more output
    sleep 1;
    seek FH, 0, 1;      # this clears the eof flag on FH
}