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

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

ξεκινήσει ένα πρόγραμμα επεξεργασίας κειμένου ή το Σημειωματάριο , και να δημιουργήσει ένα νέο σενάριο Perl . Για παράδειγμα , πληκτρολογήστε την ακόλουθη ως την πρώτη γραμμή στο αρχείο : !

# /Usr /bin /perl 2

αναγνωρίσει τρεις μεταβλητές - η σειρά για την οποία θέλετε να υπολογίσει τη λειτουργία , ένα hash για να αποθηκεύσετε τη μέτρηση της κάθε μοναδικό αριθμό και βαθμωτή τιμή του αριθμού του τρόπου μεταφοράς . Για παράδειγμα, πληκτρολογήστε :

μου @ array ? Τον αριθμό μου % ? $ Count μου?
Εικόνων 3

Προσθήκη αριθμών στη σειρά και να ρυθμίσετε την καταμέτρηση λειτουργία στο μηδέν , η οποία δεν είναι έγκυρη μέτρηση για μια λειτουργία . Για παράδειγμα, πληκτρολογήστε :

@ array = ( 7,1,5,9,11,7,3,3,5,7,9,3,8 ) ? $ Count = 0 ?
Φτηνές 4

Δημιουργήστε ένα hash , όπου τα πλήκτρα είναι μοναδικοί αριθμοί στη σειρά και οι τιμές είναι ο αριθμός των εμφανίσεων του κάθε πλήκτρου με τη χαρτογράφηση του πίνακα σε ένα hash και προσαύξηση της αξίας κάθε φορά που προστίθεται ένα κλειδί στο hash . Για παράδειγμα, πληκτρολογήστε :

χάρτη { $ { αριθμός } $ _ + + } @ array ?
5

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

για $ i ( είδος { $ number { $ b } <= > $ αριθμό { $ a} } αριθμητικά πλήκτρα % ) {
Η 6

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

print " Η κατάσταση εμφανίζεται $ number { i} $ φορές στο σύνολο δεδομένων \\ n ". Εάν $ count == 0 ?
Η 7

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

$ count = ( $ count == 0 ) ; $ αριθμό { i} $ : $ μετράνε ?
8

Εκτυπώστε την αξία της λειτουργίας για κάθε λειτουργία στο σύνολο των δεδομένων , αν ο αριθμός είναι ο ίδιος με τον αριθμό αναμονής. Για παράδειγμα, πληκτρολογήστε :

print "mode είναι $ i \\ n" αν το $ { αριθμός $ i } == $ μετράνε ? }
Η 9

Αποθηκεύστε το σενάριο και να ορίσετε μια αρχείου , όπως " mode.pl. " Εκτελέστε το σενάριο και ελέγξτε για να βεβαιωθείτε ότι το αποτέλεσμα είναι σωστή . Για παράδειγμα , το σενάριο από τα προηγούμενα βήματα παράγει το ακόλουθο αποτέλεσμα :

Η κατάσταση εμφανίζεται 3 φορές στο setmode δεδομένων είναι 3 λειτουργιών , 7 φωτογραφίες
Η