perl - 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);      
}

モジュールsleepを使用して短縮できますTime::HiRes