Το Perl είναι ένα ιδανική γλώσσα για εργασία με αρχεία. Έχει τη βασική δυνατότητα κάθε σεναρίου κελύφους και προηγμένα εργαλεία, όπως οι κανονικές εκφράσεις, που την καθιστούν χρήσιμη. Για να συνεργαστείτε Perl αρχεία, πρέπει πρώτα να μάθετε να διαβάζετε και να γράφετε σε αυτά. Η ανάγνωση ενός αρχείου γίνεται στο Perl ανοίγοντας ένα filehandle σε έναν συγκεκριμένο πόρο.
Ανάγνωση αρχείου σε Perl
Για να συνεργαστείτε με το παράδειγμα αυτού του άρθρου, θα χρειαστείτε ένα αρχείο για να διαβάσετε το σενάριο Perl. Δημιουργήστε ένα νέο έγγραφο κειμένου που ονομάζεται data.txt και τοποθετήστε τον στον ίδιο κατάλογο με τον Perl πρόγραμμα παρακάτω.
Στο ίδιο το αρχείο, πληκτρολογήστε μόνο μερικά ονόματα - ένα ανά γραμμή:
Όταν εκτελείτε τη δέσμη ενεργειών, η έξοδος θα πρέπει να είναι ίδια με αυτή του ίδιου του αρχείου. Το σενάριο απλά ανοίγει το καθορισμένο αρχείο και περιστρέφεται διαμέσου του γραμμής με γραμμή, εκτυπώνοντας κάθε γραμμή καθώς πηγαίνει.
Στη συνέχεια, δημιουργήστε ένα filehandle που ονομάζεται MYFILE, ανοίξτε το και τοποθετήστε το στο αρχείο data.txt.
Στη συνέχεια, χρησιμοποιήστε έναν απλό βρόχο για να διαβάσετε αυτόματα κάθε γραμμή του αρχείου δεδομένων μία κάθε φορά. Αυτό τοποθετεί την τιμή κάθε γραμμής στην προσωρινή μεταβλητή $ _ για έναν βρόχο.
Στο εσωτερικό του βρόχου, χρησιμοποιήστε τη λειτουργία chomp για να διαγράψετε τις γραμμές από το τέλος κάθε γραμμής και στη συνέχεια να εκτυπώσετε την τιμή του $ _ για να δείξετε ότι έχει διαβαστεί.
Τέλος, κλείστε το filehandle για να ολοκληρώσετε το πρόγραμμα.
Γράφοντας σε ένα αρχείο σε Perl
Πάρτε το ίδιο αρχείο δεδομένων με το οποίο εργαστήκατε ενώ μαθαίνοντας να διαβάζετε ένα αρχείο στο Perl. Αυτή τη φορά, θα γράψετε σε αυτό. Για να γράψετε σε ένα αρχείο στο Perl, θα πρέπει να ανοίξετε ένα αρχείο χειρός και να το τοποθετήσετε στο αρχείο που γράφετε. Αν χρησιμοποιείτε Unix, Linux ή Mac, ίσως χρειαστεί να ελέγξετε και πάλι τα δικαιώματα του αρχείου σας για να δείτε αν επιτρέπεται η γραφή Perl να γράψει στο αρχείο δεδομένων.
Εάν εκτελέσετε αυτό το πρόγραμμα και στη συνέχεια εκτελέσετε το πρόγραμμα από την προηγούμενη ενότητα κατά την ανάγνωση ενός αρχείου στο Perl, θα δείτε ότι πρόσθεσε ένα ακόμη όνομα στη λίστα.
Στην πραγματικότητα, κάθε φορά που τρέχετε το πρόγραμμα, προσθέτει ένα άλλο "Bob" στο τέλος του αρχείου. Αυτό συμβαίνει επειδή το αρχείο άνοιξε στη λειτουργία προσάρτησης. Για να ανοίξετε ένα αρχείο σε κατάσταση προσάρτησης, απλά προθέστε το όνομα αρχείου με το >> σύμβολο. Αυτό δείχνει την ανοικτή συνάρτηση που θέλετε να γράψετε στο αρχείο κάνοντας πιο κοντά στο τέλος του.
Αν αντίθετα θέλετε να αντικαταστήσετε το υπάρχον αρχείο με ένα νέο, χρησιμοποιήστε το > ένα μόνο μεγαλύτερο από το σύμβολο για να πει την ανοικτή λειτουργία που θέλετε ένα καινούργιο αρχείο κάθε φορά. Δοκιμάστε να αντικαταστήσετε το >> με ένα> και βλέπετε ότι το αρχείο data.txt περικόπτεται σε ένα μόνο όνομα - Bob - κάθε φορά που εκτελείτε το πρόγραμμα.
Στη συνέχεια, χρησιμοποιήστε τη λειτουργία εκτύπωσης για να εκτυπώσετε το νέο όνομα στο αρχείο. Μπορείτε να εκτυπώσετε σε ένα αρχείο χειρός ακολουθώντας την εντολή εκτύπωσης με το χειριστήριο αρχείων.
Τέλος, κλείστε το filehandle για να ολοκληρώσετε το πρόγραμμα.