Como pesquisar arquivos arquivados com Perl
-
02-07-2019 - |
Pergunta
Qual é o seu método preferido para ler o conteúdo de diretórios compactados com Perl?
Solução
Existem vários módulos no CPAN para trabalhar com vários formatos de arquivo (zip, tar, etc.), o que você está provavelmente depois é Arquivo :: Zip .
Outras dicas
Arquivo :: Zip
require Archive::Zip;
my $zip = Archive::Zip->new($somefile);
for($zip->memberNames()) {
print "$_\n";
}
Se você quiser o conteúdo de um arquivo .tar.gz
open(DIR_LISTING, "gzip -dc concert25.tgz | tar -tf -|") || die;
while (<DIR_LISTING>) {
print;
}
close (DIR_LISTING);
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow