Cómo Zip archivos utilizando Perl

Perl es un lenguaje de programación interpretado popular entre muchos administradores de sistemas para la automatización de sus puestos de trabajo . ¡Es bibliotecas del núcleo contienen funciones para lograr fácilmente muchas tareas de computación comunes, incluyendo la creación de los ficheros de archivo zip. Instrucciones
1

Crear un nuevo archivo de texto llamado " zip.perl " utilizando el Bloc de notas u otro editor de su elección. Asegúrese de que la extensión es " perl . " Y no
2

Importar la biblioteca Zip pegando el siguiente comando " txt . ". :

Uso IO :: Compress :: Zip qw (zip $ ZipError ) ;
3

Especifique los archivos que se van con cremallera y el nombre del archivo zip pegando el siguiente código:

$ entrada = " . < * > ';

$ salida =' file.zip ' ;

Esto comprimir todos los archivos en el directorio actual . Hay una variedad de opciones que puede utilizar en este paso. Por ejemplo :

$ entrada = " < * txt . > '

Esto comprimir todos los archivos en el directorio actual que terminan con la extensión txt
4 .

Realice la operación zip pegando el siguiente comando:

zip $ entrada = > $ salida

o morir "zip fracasaron " ;

Si te gusta , usted puede añadir algunos parámetros opcionales para este paso. Por ejemplo , si desea agregar los datos al final del archivo zip en lugar de crear un todo nuevo, utilice la siguiente :

zip $ entrada = > $ salida , Append = > 1

o morir "zip falló" ;