如何使用perl搜索壓縮文件中的文本

Question

我需要在包含多個文本文件的zip壓縮文件中搜索字符串。我如何使用perl Archive :: Zip來做到這一點？另外，如果有的話，還有什麼其他模塊？

我的基本要求是在包含給定字符串的壓縮檔案中找到特定的文本文件。

Answer 1

只是一個簡單的例子，如何將所有的文件遍歷在一個zip，

use strict; 
use Archive::Zip; 
my ($path, $filename) = ('c:\\temp\\', 'many_filez.zip'); #try/instead of \\? 
my $zip = Archive::Zip->new($path.$filename); 
unless ($zip) { 
    die dump "cannot open '$path' + '$filename'" 
} 
#find only css-files 
my @members = $zip->membersMatching('.*\.css'); 
foreach my $member (@members) { 
    my $file_content = $zip->contents($member); 
    if ($file_content =~ /text to look for/) { 
     print "\n $member->{fileName} did have a match"; 
    }   
}