Πώς να διαβάσετε Πολλές γραμμές αρχείο σε Perl

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

1 Ανοίξτε ένα κενό αρχείο με οποιοδήποτε πρόγραμμα επεξεργασίας κειμένου . 2

Πληκτρολογήστε τη γραμμή

# ! /Usr /bin /perl

να ξεκινήσει το σενάριο Perl
εικόνων 3

Πληκτρολογήστε τη γραμμή

$ μου num = 10 ? .

να δημιουργήσετε τη μεταβλητή που περιέχει το . τον αριθμό των γραμμών που θέλετε να διαβάσετε
Η 4

Πληκτρολογήστε τη γραμμή

μου line_num $ = $ num - 1 ?

να αφαιρέσουμε την μία ( 1 ) από το τον αριθμό των γραμμών που θέλετε να εκτυπώσετε . Μπορείτε να το κάνετε αυτό, επειδή μια σειρά αρχίζει να μετρά από το μηδέν ( 0 ) , όχι ( 1 ) .
5

Πληκτρολογήστε τη γραμμή

ανοικτή ΑΡΧΕΙΟ , " <" , "όνομα αρχείου" ή πεθαίνουν $ ? !

να ανοίξετε το αρχείο που περιέχει τις γραμμές . Αντικαταστήστε το " όνομα αρχείου" με το όνομα του αρχείου που θέλετε να ανοίξετε . Το αρχείο θα ανοίξει ως μόνο για ανάγνωση
Η

6 Πληκτρολογήστε τη γραμμή

@ γραμμές μου = ? .

Να τοποθετήσετε τα περιεχόμενα της αρχείο σε μια σειρά . Κάθε γραμμή του αρχείου θα είναι ένα ξεχωριστό στοιχείο της συστοιχίας
Η 7

Πληκτρολογήστε τις γραμμές

για ( $ x = 0 ? . $ X <= $ line_num ? $ X + + )

{

print γραμμές @ [ $ x ] ?

}

να εκτυπώσετε τον αριθμό των γραμμών που έχετε ορίσει στο " $ num " μεταβλητή . Μπορείτε να αλλάξετε τον κωδικό μεταξύ των άγκιστρα σε κάθε επεξεργασία γραμμή που προτιμάτε
8

Πληκτρολογήστε τη γραμμή

κοντά FILE ? .

Να κλείσει το ανοικτό αρχείο .
Η 9

Αποθηκεύστε το αρχείο ως " read_lines.pl " .
Η 10

Πληκτρολογήστε την εντολή " perl read_lines.pl " σε μια γραμμή εντολών για να εκτελέσει το σενάριο .


Η