Πώς να χρησιμοποιήσετε τις γραμμές ενός αρχείου ως μια λίστα σε Perl

Η «ανοικτή » λειτουργία Perl επιτρέπει να ανοίξετε ένα αρχείο στο ανάγνωσης, εγγραφής ή την κατάσταση επισυνάψει. Όταν διαβάζετε τα περιεχόμενα ενός αρχείου , μπορείτε να αποθηκεύσετε κάθε γραμμής σε ένα νέο στοιχείο σε μια λίστα Perl μεταβλητή , στη συνέχεια, χρησιμοποιήστε τη λίστα στο πρόγραμμά σας . Ωστόσο, η λειτουργία διαβάζει επίσης το χαρακτήρα στο τέλος της γραμμής και αποθηκεύει ότι στον κατάλογο , καθώς και. Εάν δεν θέλετε να διατηρήσετε αυτό το χαρακτήρα , θα πρέπει να γράψετε μια λειτουργία που περικόπτει . Οδηγίες
Η

1 Ανοίξτε ένα αρχείο προγράμματος Perl . Πληκτρολογήστε τον ακόλουθο κώδικα :

ανοικτή ΔΕΔΟΜΕΝΩΝ, " < text.txt " ?

Η «ανοικτή » η λειτουργία ανοίγει το φάκελο που προβλέπεται από το όνομα του αρχείου στην έκφραση και αποθηκεύει το περιεχόμενο στην "DATA " χειρισμού αρχείων . Η " < " καθορίζει για να ανοίξετε το αρχείο σε " διαβάσει " 2

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

@ Γραμμές μου = ?
< p> η γραμμή αυτή δημιουργεί μια λίστα Perl που ονομάζεται " γραμμές @" που σώζει κάθε γραμμή από το αρχείο ως ένα νέο στοιχείο στη λίστα , συμπεριλαμβανομένων των τελικών της γραμμής χαρακτήρων .
εικόνων 3

Τύπος τον ακόλουθο κώδικα :

sub trim ( $ ) {

μου $ string = στροφή ?

$ string = ~ s /\\ s + $ //?
< p> επιστροφή $ string ? .

}

η λειτουργία αυτή χρησιμοποιεί μια κανονική έκφραση για να απομακρύνετε τα τελικά λευκό χώρο από μια ακολουθία χαρακτήρων που διαβιβάζονται σε αυτήν ως παράμετρος
Η 4 < p > Πληκτρολογήστε τον ακόλουθο κώδικα :

για ( $ i = 0 ? $ i < @ γραμμές? $ i + + ) {

@ γραμμές [ $ i ] = τελειώματα ( @ γραμμές [ $ i ] ) ?

}

ο κωδικός αυτός διέρχεται μέσω κάθε στοιχείο στη λίστα , και περνάει στο " τελειώματα " λειτουργία που δημιουργούνται , στη συνέχεια, διαγράφει το στοιχείο με τα ίδια στοιχεία , εκτός βέβαια από το τέλος της γραμμής χαρακτήρα .
5

Αποθηκεύστε το αρχείο προγράμματος .
Η
εικόνων