Il modulo Perl Archive:: zip può essere utilizzato per creare un archivio Zip da all'interno di uno script Perl. Archivi zip vengono utilizzati per comprimere e memorizzare più file in un unico file. Questo modulo può essere utilizzato anche per estrarre o leggere, un file Zip esistente. Una volta creato un archivio Zip, i file possono essere aggiunti, rimossi, sostituiti o ridisposizione all'interno di esso. Questo modulo utilizza il formato di file Unix, che significa le directory sono separate da una barra (/), indipendentemente dalla convenzione di denominazione del sistema operativo.

Istruzioni

1

Aprire una finestra di terminale in Linux o il prompt dei comandi in Windows.

2

Digitare il comando seguente per installare il modulo Perl Zip:

Perl - MCPAN -e 'installa Archive:: zip'

3

Aprire un documento di testo vuoto nel vostro editor di testo preferito.

4

Tipo "#! / bin/perl" senza virgolette per iniziare il vostro script Perl.

5

Digitare il comando seguente per importare il modulo Zip:

utilizzare Archive:: zip;

6

Digitare il comando seguente per avviare una nuova istanza dell'oggetto Zip:

$object = Archive:: zip -> New ();

7

Digitare la riga seguente per creare la matrice contenente i nomi dei file per memorizzare:

@files = ('fileA. txt', 'fileB', 'fileC.txt')

Questo utilizza il file fileA. txt, fileB e fileC.txt.

8

Digitare la riga "foreach $file (@files) {$object -> addFile($file);}" senza virgolette per aggiungere i file nell'archivio.

9

Digitare le righe seguenti per creare l'archivio chiamato test. zip:

Se ($obj -> writeToFileNamed('test.zip')! = AZ_OK) {print "Archivio non creato correttamente!"} else {print "È stato creato l'Archivio Congratulazioni!"}

10

Salvare il file con l'estensione. pl.

11

Testare lo script digitando "perl -w script.pl" senza virgolette al prompt dei comandi.