Πώς να Zip αρχεία Χρησιμοποιώντας Perl

PERL είναι μια scripting γλώσσα ερμηνεύεται δημοφιλής με πολλούς διαχειριστές του συστήματος για την αυτοματοποίηση των θέσεων εργασίας τους . Είναι βασικές βιβλιοθήκες περιέχουν συναρτήσεις για την επίτευξη εύκολα πολλές κοινές υπολογιστικές εργασίες , συμπεριλαμβανομένης της δημιουργίας zip αρχεία αρχειοθέτησης . Οδηγίες
Η

1 Δημιουργήστε ένα νέο αρχείο κειμένου που ονομάζεται " zip.perl " χρησιμοποιώντας είτε το Σημειωματάριο ή άλλο πρόγραμμα επεξεργασίας της επιλογής σας . " . . Txt " Βεβαιωθείτε ότι η επέκταση είναι " . Perl " και όχι 2

Εισαγωγή στη βιβλιοθήκη Zip επικολλώντας την ακόλουθη εντολή :

χρησιμοποιήσετε IO :: Συμπίεση :: Zip qw ( zip $ ZipError ) ?
εικόνων 3

Καθορίστε τα αρχεία που πρέπει να φερμουάρ και το όνομα του αρχείου zip με την επικόλληση τον παρακάτω κωδικό :

$ εισόδου = " . <* > ' ?

$ output = ' file.zip » ?

Αυτό θα zip όλα τα αρχεία στον τρέχοντα κατάλογο . Υπάρχει μια ποικιλία από επιλογές που μπορείτε να χρησιμοποιήσετε σε αυτό το βήμα . Για παράδειγμα : .

$ Εισόδου = ' <. * Txt > '

Αυτό θα zip όλα τα αρχεία στον τρέχοντα κατάλογο , που τελειώνει με την επέκταση αρχείου txt
Η 4

Εκτελέστε τη λειτουργία zip επικολλώντας την ακόλουθη εντολή :

zip $ εισόδου = > $ εξόδου

ή να πεθάνουν " zip απέτυχε" ?

Αν σας αρέσει , μπορείτε να προσθέσετε μερικές προαιρετικές παράμετροι σε αυτό το βήμα . Για παράδειγμα , αν θέλετε να προσαρτήσετε τα δεδομένα στο τέλος του αρχείου zip αντί να δημιουργήσει μια εντελώς νέα , χρησιμοποιήστε τα ακόλουθα :

zip $ εισόδου = > $ εξόδου , ​​προσάρτησης = > 1

ή να πεθάνουν " zip απέτυχε" ?
Η
εικόνων