Πώς να Απόσπασμα ZIP αρχεία με Perl

Μία από τις βασικές ενότητες PERL που έρχεται με κάθε εγκατάσταση του scripting γλώσσα είναι η ενότητα Αρχείο , το οποίο περιλαμβάνει μια σειρά από εργαλεία για την εργασία με τα αρχεία ZIP και άλλα είδη αρχείων . Εκτός από την πανταχού παρούσα μορφή ZIP , η βιβλιοθήκη Perl Archive υποστηρίζει, επίσης, TGZ , TAR , GZ , TAR , και άλλα. Οδηγίες
Η

1 Δημιουργήστε ένα νέο αρχείο κειμένου . Κάθε απλό επεξεργαστή κειμένου θα κάνει , αρκεί να γράφει τα συνηθισμένα αρχεία κειμένου και όχι εξειδικευμένες έγγραφα επεξεργασίας κειμένου . Έτσι, για παράδειγμα , το Windows Notepad είναι αποδεκτή, αλλά το Microsoft Word δεν είναι . Ονομάστε το αρχείο " extractor.pl . " 2

Επικολλήστε τον ακόλουθο ως την πρώτη γραμμή του προγράμματός σας . Θα εισάγει το εργαλείο Επίτευξη :: Απόσπασμα στο πρόγραμμα PERL , έτσι μπορείτε να το χρησιμοποιήσετε :

χρησιμοποιούν Archive :: εκχύλισμα?
Εικόνων 3

Επικολλήστε τον παρακάτω για να φορτώσετε το ZIP αρχείο στον απορροφητήρα

$ μου απαγωγέας = αρχείο :: Extract - > νέα ( αρχείο = > ' file.zip ») ?
Η 4

Επικολλήστε τα παρακάτω στο εξαγάγετε τα αρχεία στον τρέχοντα κατάλογο εργασίας ( το ένα το script τρέχει μέσα ) :

$ extractor.extract ?

Εναλλακτικά , αν θέλετε να εξαγάγετε τα αρχεία σε έναν κατάλογο της επιλογής σας , επικολλήστε το ακόλουθο αντί :

$ extractor.extract ( σε = > ' /extractionDirectory /' ) ?

Τέλος , αν δεν θέλετε να εξαγάγετε τα αρχεία στο αρχείο για να το κατάλογο, αλλά θέλουν να τις διαβάσουν άμεσα στο πρόγραμμα PERL σας , μπορείτε να επικολλήσετε τον παρακάτω κώδικα αντί να δημιουργήσει μια σειρά από τα αρχεία που περιέχονται σε :

$ αρχεία μου = $ extractor.files ?


εικόνων