Um dos módulos do perl que vem com toda instalação da linguagem de script é o módulo Archive , que inclui uma série de ferramentas para trabalhar com arquivos ZIP e outros tipos de arquivos. Além do formato ZIP onipresente , a biblioteca Perl Archive também suporta TGZ , TAR , GZ , TAR , e outros. Instruções
1

Crie um novo arquivo de texto. Qualquer editor de texto simples irá fazer , desde que grava arquivos de texto comuns , e não documentos de processamento de texto especializados . Assim, por exemplo , o Windows Notepad é aceitável, mas o Microsoft Word não é. Nomeie o " extractor.pl ". Arquivo
2

Cole o seguinte como a primeira linha do seu programa. Ele vai importar a ferramenta Consiga :: Extrato no programa PERL para que você possa usá-lo :

usar Archive :: Extract ;
3

Cole o seguinte para carregar o arquivo ZIP para o extrator :

my $ extrator = Archive :: Extract- > new (arquivo => ' file.zip ');
4

cole o seguinte para extrair os arquivos para o diretório atual de trabalho ( o que o script está sendo executado dentro ) :

$ extractor.extract ;

Alternativamente, se você deseja extrair os arquivos para um diretório de sua escolha , cole o seguinte em vez disso:

$ extractor.extract ( to = > ' /extractionDirectory /');

Finalmente, se você não deseja extrair os arquivos do arquivo para um diretório, mas quero ler -los diretamente em seu programa PERL , você pode colar o seguinte código , em vez de gerar uma matriz dos arquivos contidos :

meus $ files = $ extractor.files ;
< br >