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

Istruzioni

1

Creare un nuovo file di testo. Qualsiasi editor di testo normale farà, condizione scrive normali file di testo e word non specializzati elaborazione dei documenti. Così, per esempio, blocco note di Windows è accettabile, ma non è Microsoft Word. Denominare il file "extractor.pl."

2

Incollare il seguente come prima riga del programma. Importerà lo strumento Achive::Extract nel programma PERL così si può utilizzare:

utilizzare Archive::Extract;

3

Incollare il seguente per caricare il file ZIP nell'estrattore:

mio $extractor = Archive::Extract -> nuovo (Archivio = > 'file. zip');

4

Incollare il seguente per estrarre i file nella directory di lavoro corrente (quella 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 dell'archivio in una directory, ma desidera leggerli direttamente nel vostro programma PERL, è possibile incollare il codice seguente invece per generare una matrice dei file contenuti all'interno di:

mio $files = $extractor.files;