Cómo crear archivos Zip con Perl

The Perl Archive :: Zip módulo se puede utilizar para crear un archivo Zip en un script de Perl. Archivos Zip se utilizan para comprimir y almacenar varios archivos en un solo archivo. Este módulo también puede ser utilizado para extraer , o leer , un archivo Zip existente . Una vez que se crea un archivo Zip , pueden añadirse archivos , eliminados, sustituidos o reorganizan dentro de ella. Este módulo utiliza el formato de archivo de Unix, lo que significa que los directorios están separados por una barra (/), independientemente de la convención de nombres del sistema operativo. Instrucciones
1

Abra una ventana de terminal en Linux o el símbolo del sistema en Windows
2

Escriba el siguiente comando para instalar el módulo Perl Zip : .
< P > perl- MCPAN -e ' install Archive :: Zip'
3

Abra un documento de texto en blanco en su editor de texto preferido .
4

Type " ! # /bin /perl "sin las comillas para comenzar la secuencia de comandos Perl
5

Escriba lo siguiente para importar el módulo Zip : .

Archive :: Zip uso ;

6

Escriba el siguiente para iniciar una nueva instancia del objeto postal:

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

Tipo la siguiente línea para crear la matriz que contiene los nombres de los archivos a almacenar:

@ files = ( ' fileA.txt ', ' fileB.txt ', ' fileC.txt ' )
< p > Se utiliza el archivos fileA.txt , fileB.txt y fileC.txt .
8

Escriba la línea " foreach $ archivo ( @ archivos) { $ object -> addFile ( $ file ) . ;} "sin las comillas para agregar los archivos al archivo
9

escriba las líneas siguientes para crear el archivo llamado test.zip :

if ($ obj- > writeToFileNamed ( ' test.zip ' ) ! = AZ_OK ) {print "El archivo no se creó con éxito ! "} else { print " Felicidades , el archivo ha sido creado! "}
10

Guardar el archivo con la extensión de archivo . pl.
11

probar el script escribiendo " perl- w script.pl " sin las comillas en el símbolo del sistema .