Perl -实时读取日志文件

Question

除了使用模块File::Tail (用于从不断更新的文件中读取的Perl扩展名)o while循环..根据您的观点，实时读取大日志文件的最佳方式是什么？

Answer 1

读取文件直到eof，休眠一段时间，清除文件句柄上的eof标志，然后再次尝试读取，

# open $fh..

while (1) {
    while (my $line = <$fh>) {
        # $line ...
    }
    # eof reached on $fh
    sleep 1;
    # clear eof flag on $fh
    seek($fh, 0, 1);      
}

您可以使用Time::HiRes模块来缩短sleep