Come creare file zip con i Perl

L'Archivio Perl :: modulo Zip può essere utilizzato per creare un archivio Zip all'interno di uno script Perl . Archivi zip vengono 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 che un archivio Zip è creata , 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 . Istruzioni
1

Aprire una finestra di terminale in Linux o prompt dei comandi in
2

Tipo di Windows il seguente comando per installare il modulo Perl Zip : .

perl- MCPAN -e ' install Archive :: Zip'
3

Aprite 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 quanto segue per importare il modulo postale: .

uso Archive :: Zip ;

6

digitare quanto segue per avviare una nuova istanza dell'oggetto postale:

$ oggetto = Archive :: Zip- > new ( ) ;
7

Tipo la riga seguente per creare l'array che contiene i nomi dei file di archivio :

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

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

Tipo linea " foreach $ file ( @ file) { $ oggetto - > addFile ( $ file ) . ; } "senza virgolette per aggiungere i file all'archivio
9

Tipo le seguenti righe alla creazione di un archivio chiamato test.zip :

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

Salva il file con l' estensione. pl.
11

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