Πώς να βρείτε τους αριθμούς γραμμής Χρησιμοποιώντας Perl

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

να αναγνωρίσει μια σειρά Perl με την εντολή :

@ data = ( ) ? 2

Ανοίξτε ένα αρχείο για να διαβάσετε μέσα Perl script σας με την εντολή :

ανοιχτό ( INPUT , " output.txt ")?

Σημειώστε ότι " output.txt " είναι ένα παράδειγμα των δεδομένων αρχείων και «ΕΙΣΟΔΟΣ » είναι η λαβή του αρχείου να ανατρέξετε στο αρχείο μέσα στο script
εικόνων 3

Διαβάστε στις γραμμές από τα αρχεία στον πίνακα: .

@ δεδομένων = ?
Η 4

Εκχώρηση μια αρχική τιμή μηδέν με τη μεταβλητή « αριθμός » που είναι ο μετρητής γραμμή στο πρόγραμμα :

$ count = 0 ?
Φτηνές 5

Χρησιμοποιήστε το Perl loop " foreach " να πάει και αν κάθε γραμμή στο αρχείο :

foreach $ γραμμή ( @ δεδομένων) { }

Η 6

Τοποθετήστε το μετρητή γραμμή στο εσωτερικό του βρόχου :

foreach $ γραμμή ( @ δεδομένων) {

$ count + + ?

}

Σημείωση ότι η μεταβλητή " μετράνε " σταδιακά αυξάνεται με κάθε επανάληψη του βρόγχου και η αξία της αντιστοιχεί στον αριθμό γραμμής στο αρχείο .
Η

7 Τοποθετήστε ένα " if" στο βρόχο για να μάθετε τον αριθμό ενός συγκεκριμένου γραμμή . Για παράδειγμα , θα πρέπει να γνωρίζετε τον αριθμό της γραμμής που ξεκινά με τη λέξη " πρόοδος ". Το παρακάτω κομμάτι του κώδικα που κάνει

foreach $ γραμμή ( @ δεδομένων) {

$ μετράνε + + ? .

If ( $ γραμμή = ~ /Progress /) {print "Ο αριθμός της γραμμής είναι $ count "} }

Οι έξοδοι του προγράμματος μοιάζει με "Ο αριθμός της γραμμής είναι 12 . "
Η
εικόνων