perl을 사용하여 압축 된 gz 파일의 수정 시간을 얻는 방법

Question

수천 개의 gz 파일이 있고 각 gz 파일에는 하나의 XML 파일이 압축되어 있습니다.
모든 파일을 Perl로 파싱해야합니다.
펄 코드를 다음 사용하는 경우 그것은 잘 작동 :

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

내 질문은, 그것은 XML 파일의 마지막 수정 시간을 얻을 수 있습니다? stat($fh))[9] 시도했지만 항상 시간을 반환합니다.

친절하게 도와 주셔서 감사합니다.

Answer 1

사용 :

stat($file)[9] 

는 풀어서 스트림은 수정 시간이 없습니다 만 실제 파일을 수행합니다.