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

概述我有一堆可笑的大文件(大小为几千兆字节),它们具有非常高的压缩率(1：200或更高).我必须处理这些,并希望至少显示某种进度估计.出于这个原因,我想知道.gz中文件的大小,所以我可以将它与我已经拔出的内容进行比较. 但是,由于每次提前打开整个文件的包装是相当令人望而却步的,而且浪费时间,我想在没有这样做的情况下计算尺寸. 我知道这是可能的.我可以用Total Commander打开gzip文件,查 我有一堆可笑的大文件(大小为几千兆字节),它们具有非常高的压缩率(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;}

总结

以上是内存溢出为你收集整理的我如何在Perl中告诉gzip存档中文件的大小是什么,而不解压缩整个文件？全部内容，希望文章能够帮你解决我如何在Perl中告诉gzip存档中文件的大小是什么,而不解压缩整个文件？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。