Windows上の裸のPerlで特定のパターンを含むファイルの最終行を読み取るにはどうすればよいですか？

Question

ファイルを最後まで読んで、特定の正規表現パターンを含む最後の行を取得する必要があります。私はFile:ReadBackwardsモジュールを持っていません。

私は以下のコードを試してみましたが、私はPerlIO::reverseがいずれかのインストールされていないことがわかりました。

モジュールをインストールできません。これを達成するためのコードをお勧めします。

最終的に私は、パターン

(\d\d) (\w{3}) (\d{4}) (\d\d):(\d\d):(\d\d) -- 

で始まるファイルの行は、これは私がいつものように

open my $rev, '<:reverse', '$slogfile'; 

while ($line = <$rev>) { # do to contents reversely  
    print OUTLOG $line if $line =~ m/^(\d\d) (\w{3}) (\d{4}) (\d\d):(\d\d):(\d\d) --/; 
    close($rev); 
} 

Answer 1

読むファイルを試みたものを、自分のパターンでそれぞれの行をテストし、完全な保存されたいですそれが一致するたびに行が表示されます。ファイルが完成したら、保存したものを印刷してください。最後に一致します。

open my $fh, '<', $slogfile; 
my $last_match; 
while (<$fh>) { 
    if (m/^(\d\d) (\w{3}) (\d{4}) (\d\d):(\d\d):(\d\d) --/) { $last_match = $_ } 
} 
print OUTLOG $last_match;