Πώς να δημιουργήσετε αρχεία Zip με Perl

ενότητα Αρχείο Perl :: Zip μπορεί να χρησιμοποιηθεί για να δημιουργήσει ένα αρχείο zip μέσα από ένα σενάριο Perl . Zip αρχεία χρησιμοποιούνται για να συμπιέσουν και να αποθηκεύσετε πολλαπλά αρχεία σε ένα ενιαίο αρχείο . Η μονάδα αυτή μπορεί επίσης να χρησιμοποιηθεί για την εξαγωγή , ή να διαβάσετε , ένα υπάρχον αρχείο Zip . Μόλις δημιουργηθεί ένα αρχείο zip , μπορούν να προστεθούν αρχεία , αφαιρούνται, να αντικαθίστανται ή αναδιατάσσονται μέσα σε αυτό . Αυτή η μονάδα χρησιμοποιεί τη μορφή αρχείου Unix , το οποίο σημαίνει ότι οι κατάλογοι χωρίζονται από μια κάθετο ( /) , ανεξάρτητα από τη σύμβαση ονομασίας του λειτουργικού συστήματος . Οδηγίες
Η

1 Ανοίξτε ένα παράθυρο τερματικού στο Linux ή γραμμή εντολών στα Windows 2

Πληκτρολογήστε την ακόλουθη εντολή για να εγκαταστήσετε τη μονάδα Zip Perl : .

perl - MCPAN - e » εγκαταστήσετε Archive :: Zip ' εικόνων
3

Ανοίξτε ένα κενό έγγραφο κειμένου στον επεξεργαστή κειμένου που προτιμάτε .
Η 4

Τύπος " ! . # /bin /perl " χωρίς εισαγωγικά για να ξεκινήσει Perl script σας
5

Πληκτρολογήστε το παρακάτω, για να εισαγάγετε τη μονάδα Zip :

χρήση Archive :: Zip ?

6

Πληκτρολογήστε το παρακάτω για να ξεκινήσετε μια νέα παρουσία του αντικειμένου Τ.Κ. :

αντικείμενο $ = Αρχείο :: Zip - > νέο ( ) ?
Η 7

Τύπος η ακόλουθη γραμμή για να δημιουργήσετε τον πίνακα που κρατά τα ονόματα των αρχείων για την αποθήκευση :

@ αρχεία = ( ' fileA.txt » , « fileB.txt »,« fileC.txt ' )

Αυτό χρησιμοποιεί τα αρχεία fileA.txt , fileB.txt και fileC.txt .
8

Πληκτρολογήστε τη γραμμή " $ file foreach ( @ αρχεία ) { $ αντικείμενο - > addFile ( $ file ) ? } "χωρίς εισαγωγικά για να προσθέσετε τα αρχεία στο αρχείο
Η 9

Πληκτρολογήστε τις ακόλουθες γραμμές για να δημιουργήσετε το αρχείο που ονομάζεται test.zip : .

if ( $ obj - > writeToFileNamed ( « test.zip ' ) ! = AZ_OK ) {print " Αρχείο δεν δημιουργήθηκε με επιτυχία ! " } else {print " Συγχαρητήρια το αρχείο έχει δημιουργηθεί ! " }
Η 10

Αποθήκευση το αρχείο με την επέκταση . pl αρχείο .
Η 11

Δοκιμάστε το script πληκτρολογώντας " perl -w script.pl " χωρίς εισαγωγικά στη γραμμή εντολών .
εικόνων