Um dos módulos Perl do núcleo que vem com cada 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.
Criar um novo arquivo de texto. Qualquer editor de texto simples irá fazer, desde que grava arquivos de texto normais e não documentos de processamento de texto especializado. Assim, por exemplo, Windows Notepad é aceitável, mas o Microsoft Word não é. Nomeie o arquivo "extractor.pl."
Cole o seguinte como a primeira linha do seu programa. Ele vai importar a ferramenta achive :: Extract no programa PERL para que você possa usá-lo:
usar Arquivo :: Extract;
Cole o seguinte para carregar o arquivo ZIP no extrator:
my $ extractor = Arquivo :: Extract-gt; nova (arquivo = gt; `file.zip`);
Cole o seguinte para extrair os arquivos para o diretório de trabalho atual (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 (a = gt; `/ extractionDirectory /`);
Finalmente, se você não deseja extrair os arquivos do arquivo compactado para um diretório, mas quiser lê-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;
Como extrair um arquivo zip em um Mac
Como extrair um arquivo zip com o VBScript
Como extrair um arquivo zip com python
Como abrir docs WordStar com a palavra ms
Como abrir um arquivo MSI em um Mac
Como extrair imagens de arquivos PDF
Como extrair arquivos tar
Como executar um arquivo jar
Como extrair um arquivo ISO em linux