O módulo Archive :: Zip Perl pode ser usado para criar um arquivo Zip de dentro de um script Perl . Arquivos Zip são usados ​​para compactar e armazenar vários arquivos em um único arquivo. Este módulo também pode ser utilizado para extrair , ou ler , um arquivo Zip existente . Uma vez que um arquivo Zip é criado , os arquivos podem ser adicionados, removidos , substituídos ou reorganizados dentro dele. Este módulo utiliza o formato de arquivo Unix, o que significa que os diretórios são separados por uma barra (/), independentemente de convenção de nomenclatura do sistema operacional . Instruções
1

Abra uma janela de terminal no Linux ou o prompt de comando no Windows
2

Digite o seguinte comando para instalar o módulo Perl Zip : .

perl- MCPAN -e ' instalar Archive :: Zip '
3

Abra um documento de texto em branco em seu editor de texto preferido.
4

Type " ! #. /bin /perl "sem as aspas para começar seu script Perl
5

Digite o seguinte para importar o módulo Zip :

usar Archive :: Zip ;

6

Digite o seguinte para iniciar uma nova instância do objeto postal :

$ object = Archive :: Zip- > new ();
7

Tipo a linha a seguir para criar a matriz que contém os nomes dos arquivos para armazenar :

@ arquivos = (' fileA.txt ', ' fileB.txt ', ' fileC.txt ')

Este utiliza os arquivos fileA.txt , fileB.txt e fileC.txt .
8

Digite a linha "$ arquivo foreach ( @ arquivos ) {$ AddFile ($ arquivo ) object-> ;} "sem as aspas para adicionar os arquivos para o arquivo
9

Digite as seguintes linhas para criar o arquivo chamado test.zip : .

if ($ obj -> writeToFileNamed (' test.zip ') ! = AZ_OK ) {print " Arquivo não foi criado com sucesso!" } else { "Parabéns ao arquivo foi criado !" impressão }
10

Salvar o arquivo com a extensão do arquivo pl . .
11

Teste o script digitando " script.pl perl -w " sem as aspas no prompt de comando .