Come creare file ZIP con Perl

July 27

Come creare file ZIP con Perl


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

istruzione

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

2 Digitare il seguente comando per installare il modulo Perl postale:

perl -MCPAN -e 'installare Archive :: Zip'

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

4 Tipo "#! / Bin / perl" senza virgolette per avviare lo script Perl.

5 Digitare quanto segue per importare il modulo postale:

utilizzare Archive :: Zip;

6 Digitare quanto segue per iniziare una nuova istanza dell'oggetto postale:

$ Oggetto = Archive :: Zip-> new ();

7 Digitare la seguente riga per creare l'array che contiene i nomi dei file da memorizzare:

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

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

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

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

if ($ obj-> writeToFileNamed ( 'test.zip')! = AZ_OK) {print "Archivio non creato con successo!" } Else {print "Complimenti l'archivio è stato creato!" }

10 Salvare il file con l'estensione del file .pl.

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


Articoli Correlati