如何使用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流没有修改时间，只有实际文件。