Cómo comprimir 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 informáticas comunes, incluyendo la creación de 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 ".txt".

2 Importar la biblioteca Zip pegando el siguiente comando:

utilizar IO :: Compress :: qw postal (ZIP $ ZipError);

3 Especificar los archivos a ser comprimido y el nombre del archivo .zip pegando el siguiente código:

$ Entrada = '<*>';

$ salida = 'file.zip';

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

$ Entrada = '<*. Txt>'

Esto zip todos los archivos en el directorio actual que termina con la extensión de archivo txt.

4 Realizar la operación postal pegando el siguiente comando:

postal $ entrada => $ salida

or die "zip failed";

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

postal $ entrada => $ salida, Anexar => 1

or die "zip failed";