perl - 如何使用perl获取压缩gz文件的修改时间

Question

我有数千个 gz 文件，每个 gz 文件都有一个压缩的 XML 文件。
我需要通过 Perl 解析所有文件。
使用以下 Perl 代码时它工作正常：

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

我的问题是，是否可以获得 XML 文件的最后修改时间？我试过stat($fh))[9]但总是返回纪元时间。

感谢您的热心帮助。

Answer 1

采用：

stat($file)[9]

Gunzip 流没有修改时间，只有实际文件有。