我如何在Perl中告诉gzip存档中文件的大小是什么,而不解压缩整个文件？

Question

我有一堆可笑的大文件(大小为几千兆字节),它们具有非常高的压缩率(1:200或更高).我必须处理这些,并希望至少显示某种进度估计.出于这个原因,我想知道.gz中文件的大小,所以我可以将它与我已经拔出的内容进行比较.

但是,由于每次提前打开整个文件的包装是相当令人望而却步的,而且浪费时间,我想在没有这样做的情况下计算尺寸.

我知道这是可能的.我可以用Total Commander打开gzip文件,查看器插件会显示正确的大小.(我知道它不是解包,因为它会立即显示我的大小,这对于gzip中的10GB文件来说是不可能的.)

可能有一些包含该信息的标题字段.

然而,通过各种CPAN模块的文档,我找不到符合条件的任何东西.IO :: Uncompress :: Gunzip让我得到一个标题,但它不包含任何文件大小信息.

有什么建议？

Answer 1

因此，这个问题有一个正确的答案：

sub get_gz_size {
    my ( $gz_file ) = @_;
    my @raw = `gzip --list $gz_file`;
    my $size = ( split " ", $raw[1] )[1];
    return $size;
}