Cómo extraer los archivos ZIP con Perl

Uno de los módulos PERL núcleo que viene con cada instalación del lenguaje de programación es el módulo Archive, que incluye una serie de herramientas para trabajar con archivos ZIP y otros tipos de archivos. Además del formato ZIP ubicua , la biblioteca Perl Archive también apoya TGZ , TAR , GZ, TAR y otros. Instrucciones
1

Crear un nuevo archivo de texto . Cualquier editor de texto plano va a hacer, siempre y cuando escribe archivos de texto normales y no documentos de procesamiento de textos especializados . Así, por ejemplo , Windows Notepad es aceptable, pero no es Microsoft Word . Nombre del archivo " extractor.pl . "
2

Pega el siguiente como la primera línea del programa . Se importará la herramienta Extract achive :: en el programa Perl para que pueda utilizarlo :

uso Archive :: Extracto ;
3

Pega el siguiente para cargar el ZIP en el extractor :

my $ extractor = archivo :: Extract- > new (archive = > ' file.zip ');
4

Pega el siguiente extraer los archivos en el directorio de trabajo actual (el que se ejecuta el script dentro ) :

$ extractor.extract ;

Alternativamente , si desea extraer los archivos en un directorio de su elección , pegue el siguiente lugar :

$ extractor.extract ( a = > '/extractionDirectory /');

Por último , si usted no desea extraer los archivos en el archivo comprimido a una directorio, pero quiero leer directamente en su programa de Perl , puede pegar el siguiente código en lugar de generar una matriz de los archivos contenidos en :

mis $ files = $ extractor.files ;