如何找到gzip文件是空的压缩文件

Question

如何找到gzip文件是空用perl

a.txt.gz当我解压的空

如何找到压缩GZ是空的？

Answer 1

您不能直接获取未压缩文件的大小，但可以使用查找。从文件创建一个对象并尝试寻找第一个字节。如果您可以查找，那么您的文件至少有1个字节的大小，否则它是空的。

#!/usr/bin/env perl 
use strict; 
use warnings; 
use IO::Uncompress::Gunzip; 
use Fcntl qw(:seek); 

my $u = IO::Uncompress::Gunzip->new('readme.gz'); 
if ($u->seek(1, SEEK_CUR)) { 
    print "Can seek, file greather than zero\n"; 
} 
else { 
    print "Cannot seek, file is zero\n"; 
} 

Answer 2

要检查tar压缩文件的内容，请使用

tar -ztvf file.tgz 

要列出的.gz文件的内容，请使用

gzip --list file.gz 

裹在Perl和检查uncompressed场在输出

$ gzip --list fjant.gz 
     compressed  uncompressed ratio uncompressed_name 
       26     0 0.0% fjant 

Answer 3

你可以使用IO::Compress::Gzip附带的Perl 5.10和ABO （或通过CPAN下载）。并用它来读取文件。

但是，您只需在文件上执行stat并查看它是否仅包含26个字节，因为空文件仅包含26个字节的标头。

我想这只是取决于你正在尝试做什么。你只是试图确定一个gzip文件是否为空，或者你打算先阅读并解压缩它？如果是前者，stat将是最容易的。如果是后者，请使用IO::Compress::Gzip模块，而不是使用一堆system命令来调用gzip。 IO::Compress::Gzip附带5.10及更高版本的所有Perl发行版，所以它是处理Zip的默认方式。