如何找到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的默認方式。