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

发布时间：2020-12-15 23:36:23 所属栏目：大数据来源：网络整理

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

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

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

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

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

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

有什么建议？

就这样,有一个正确的答案：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!