Come estrarre file ZIP con Perl

Uno dei moduli di base Perl che viene fornito con ogni installazione del linguaggio di scripting è il modulo Archive, che comprende una serie di strumenti per lavorare con i file ZIP e altri tipi di archivi. Oltre al formato ZIP onnipresente , la libreria Perl Archive supporta anche TGZ , TAR , GZ , TAR , e altri. Istruzioni
1

Creare un nuovo file di testo . Qualsiasi editor di testo va bene, a patto che scrive i file di testo normali , e non documenti di elaborazione testi specializzati . Così, per esempio , Blocco note di Windows è accettabile , ma Microsoft Word non è . Nome del file " extractor.pl . "
2

Incollare il seguente come prima riga del programma . Sarà importare il achive :: strumento di estrazione nel programma PERL in modo da poter utilizzare :

uso Archive :: estratto ;
3

Incollare il seguente per caricare il zip nella cappa :

my $ estrattore = Archivio :: Extract- > new (filmati = > ' file.zip ');
4

incollare il seguente estrarre i file nella directory di lavoro corrente (quello che lo script è in esecuzione all'interno ) :

$ extractor.extract ;

in alternativa, se si desidera estrarre i file in una directory di vostra scelta , incollare il seguente invece :

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

Infine, se non si desidera estrarre i file in archivio per un directory , ma voglia di leggerli direttamente nel vostro programma Perl , puoi incollare il codice riportato di seguito , invece di generare un array dei file contenuti all'interno :

miei $ file = $ extractor.files ;