PERL é uma linguagem de script interpretada popular com muitos administradores de sistema para automatizar seus trabalhos. É bibliotecas centrais contêm funções para alcançar facilmente muitas tarefas comuns de computação , incluindo a criação de ficheiros de arquivo zip. Instruções
1
Crie um novo arquivo de texto chamado " zip.perl " usando o bloco de notas ou outro editor de sua escolha . " . . Txt" Certifique-se que a extensão é " . Perl " e não
2
importar a biblioteca Zip colando o seguinte comando:
usar IO :: Comprimir :: Zip qw (zip $ ZipError );
3
Especifique os arquivos a serem compactados e o nome do arquivo zip , colando o seguinte código:
$ input = ' . < * > ';
$ output =' file.zip ';
Isto zip todos os arquivos no diretório atual . Há uma variedade de opções que você pode usar nesta etapa. Por exemplo : .
$ Input = ' < . * Txt > ' em
Isto zip todos os arquivos no diretório atual que terminam com a extensão do arquivo txt
4
Execute a operação zip colando o seguinte comando:
zip $ input => $ output
ou morrer "zip falhou" ;
Se você gosta, você pode adicionar alguns parâmetros opcionais para essa etapa. Por exemplo, se você deseja anexar os dados ao final do arquivo zip em vez de criar um tudo novo, use o seguinte:
zip $ input => $ output , Append => 1
ou morrer "zip falhou" ;