Πώς να βρείτε διπλότυπων στο File Χρησιμοποιώντας Perl

Perl είναι μια γενική γλώσσα προγραμματισμού σκοπό που μπορεί να χρησιμοποιηθεί ως ένα κέλυφος ή Web scripting γλώσσα . Χρησιμοποιήστε Perl να βρείτε τις διπλές γραμμές σε οποιοδήποτε αρχείο κειμένου και να τις εκτυπώσετε στην οθόνη ή σε ένα άλλο αρχείο . Η μεταβλητή hash Perl χρησιμοποιείται για να περιέχει δεδομένα λίστας . Ένας βρόχος while αναλύει το αρχείο και μετρά τον αριθμό των φορών που η γραμμή βρίσκεται στο αρχείο . Οδηγίες
Η

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

# /Usr /bin /perluse αυστηρή? Χρησιμοποιήσετε προειδοποιήσεις ? 2

Εισάγετε αυτή τη γραμμή για να δημιουργήσετε τη μεταβλητή που περιέχει το αρχείο όνομα :

$ file μου = ' filename.txt » ?

Αντικαταστήστε το" filename.txt "με το όνομα του αρχείου στο οποίο θέλετε να αναζητήσετε διπλότυπα
<. br > με 3

Πληκτρολογήστε την ακόλουθη γραμμή για να δημιουργήσει το hash να περιέχει τις γραμμές του αρχείου :

% γραμμή μου ?
Η

4 Τοποθετήστε αυτή τη γραμμή για να ανοίξετε το αρχείο για την ανάγνωση :

τοπική @ argv = ( $ file ) ?
5

Έναρξη του βρόχου while που θα διαβάσετε μέσα από κάθε γραμμή του αρχείου :

ενώ ( <> ) {
Η 6

Εκτύπωση των διπλών γραμμών στην οθόνη με αυτή τη γραμμή :

εκτύπωση αν το $ γραμμή { $ } _ + + ? }
Σελίδα 7

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