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 .