perl - perl を使用して圧縮された gz ファイルの変更時刻を取得する方法

Question

何千もの gz ファイルがあり、各 gz ファイルには 1 つの XML ファイルが圧縮されています。
Perl ですべてのファイルを解析する必要があります。
次の Perl コードを使用すると、問題なく動作します。

my $fh = IO::Uncompress::Gunzip->new($file);  
while($_ = <$fh>) {  
    ...  
}

私の質問は、XML ファイルの最終変更時刻を取得することは可能ですか? 私は試しましstat($fh))[9]たが、常にエポック時間を返します。

親切に助けてくれてありがとう。

score 1 · Accepted Answer

使用する：

stat($file)[9]

Gunzip ストリームには変更時刻がなく、実際のファイルにのみ変更時刻があります。

1 に答える 1