Διαφορετικά παραδείγματα λειτουργικών μονάδων Perl
Οι μέθοδοι χρήσης των ενσωματωμένων μονάδων Perl και των λειτουργικών μονάδων που ορίζονται από το χρήστη παρουσιάζονται σε αυτό το μέρος του σεμιναρίου.
Παράδειγμα 1: Χρήση της ενσωματωμένης μονάδας
Σε αυτό το παράδειγμα, παρουσιάζονται οι χρήσεις τριών ενσωματωμένων μονάδων της Perl. Αυτά είναι 'αυστηρά', 'προειδοποιήσεις' και '5.34.0'. Η ενότητα 'αυστηρή' χρησιμοποιείται για να ενεργοποιήσει τους διαφορετικούς τύπους περιορισμών για τη σύνταξη των σεναρίων Perl. Για παράδειγμα, καμία μεταβλητή δεν μπορεί να δηλωθεί χωρίς τη λέξη-κλειδί 'my' εάν αυτή η ενότητα χρησιμοποιείται στο σενάριο. Η ενότητα 'προειδοποιήσεις' χρησιμοποιείται για την εμφάνιση των διαφορετικών τύπων προειδοποιητικών μηνυμάτων μετά την εκτέλεση του σεναρίου που βοηθά τον κωδικοποιητή να κατανοήσει το σφάλμα. Η λειτουργική μονάδα '5.34.0' χρησιμοποιείται για τη χρήση των διαφορετικών δυνατοτήτων αυτής της ενότητας στο σενάριο. Η λειτουργία 'say' που χρησιμοποιείται για την εκτύπωση των μηνυμάτων με νέα γραμμή είναι η δυνατότητα αυτής της ενότητας.
#!/usr/bin/perl
#Ενεργοποίηση περιορισμού για κωδικοποίηση
χρησιμοποιήστε αυστηρά ;
#Εμφάνιση προειδοποιητικού μηνύματος για σφάλμα
χρήση προειδοποιήσεις ;
#Ενεργοποίηση διαφορετικών υπηρεσιών
χρησιμοποιήστε 5.34.0 ;
#Η χρήση της λέξης-κλειδιού «μου» είναι υποχρεωτική για την ενότητα «αυστηρή».
η γλώσσα μου = 'Περλ' ;
#Ενεργοποιήστε τη χρήση της δυνατότητας 'say'
λένε 'Μάθετε προγραμματισμό $language.' ;
Παραγωγή:
Η ακόλουθη έξοδος εμφανίζεται μετά την εκτέλεση του σεναρίου:
Παράδειγμα 2: Χρήση της μονάδας που ορίζεται από το χρήστη
Οι χρήστες της Perl μπορούν να δημιουργήσουν την ενότητα τους για έναν συγκεκριμένο σκοπό δημιουργώντας ένα αρχείο με την επέκταση “.pm”. Σε αυτό το παράδειγμα, δημιουργείται μια λειτουργική μονάδα που ορίζεται από το χρήστη και χρησιμοποιείται σε άλλο σενάριο Perl χρησιμοποιώντας τη λέξη-κλειδί «χρήση».
Δημιουργήστε μια ενότητα που καθορίζεται από το χρήστη:
Δημιουργήστε ένα αρχείο με το όνομα 'Bonus.pm' με το ακόλουθο σενάριο. Εδώ, η λέξη-κλειδί 'πακέτο' χρησιμοποιείται για να ορίσει ότι πρόκειται για μια ενότητα. Αυτή η ενότητα περιέχει μια υπορουτίνα που υπολογίζει το μπόνους ενός υπαλλήλου με βάση τον μισθό και το ποσό των πωλήσεων. Δύο τιμές ορίσματος μεταβιβάζονται από το σενάριο Perl στο οποίο χρησιμοποιείται αυτή η ενότητα. Το πρώτο επιχείρημα περιέχει τον μισθό και το δεύτερο επιχείρημα περιέχει το ποσό των πωλήσεων. Το μπόνους είναι 15% του ποσού των πωλήσεων εάν ο μισθός είναι μεγαλύτερος από 10000. Το μπόνους είναι 10% του ποσού των πωλήσεων εάν ο μισθός είναι μεγαλύτερος από 7000. Το μπόνους είναι 5% του ποσού των πωλήσεων εάν ο μισθός είναι μικρότερος από 10000 Το '1;' χρησιμοποιείται στο τέλος της ενότητας για να επιστρέψει το true. Διαφορετικά, εκτυπώνεται ένα σφάλμα.
Μπόνους.μμ
#!/usr/bin/perlχρησιμοποιήστε αυστηρά ;
χρήση προειδοποιήσεις ;
χρησιμοποιήστε 5.34.0 ;
Μπόνους πακέτου ;
#Declare subroutine για τον υπολογισμό του μπόνους
υπουπολογισμός_μπόνους
{
# Αρχικοποιήστε τις μεταβλητές
ο $μισθός μου = $_ [ 0 ] ;
$sales_amount μου = $_ [ 1 ] ;
το μπόνους μου = 0,0 ;
#Υπολογισμός μπόνους
αν ( $μισθός > 10000 )
{
$ μπόνους = $sales_amount* 0,15 ;
}
elif ( $μισθός > 7000 )
{
$ μπόνους = $sales_amount* 0,10 ;
}
αλλού
{
$ μπόνους = $sales_amount* 0,05 ;
}
#Επιστροφή του υπολογισμένου μπόνους
ΕΠΙΣΤΡΟΦΗ $ μπόνους ;
}
1 ;
Εισαγωγή μιας ενότητας σε ένα σενάριο Perl:
Δημιουργήστε ένα αρχείο Perl με την ακόλουθη δέσμη ενεργειών που εισάγει τη λειτουργική μονάδα 'Bonus' που δημιουργήθηκε νωρίτερα για τον υπολογισμό του ποσού μπόνους ενός υπαλλήλου με βάση τον μισθό και το ποσό των πωλήσεων που έχουν εκχωρηθεί στο σενάριο.
#!/usr/bin/perlχρησιμοποιήστε αυστηρά ;
χρήση προειδοποιήσεις ;
χρησιμοποιήστε 5.34.0 ;
χρησιμοποιήστε το μπόνους ;
#Initialize μεταβλητές
το $όνομά μου = 'Mir Sabbir' ;
ο $μισθός μου = 60000 ;
$sal_amount μου = 9700 ;
#Υπορουτίνα κλήσης από τη μονάδα
το μπόνους μου = Μπόνους::calculate_bonus ( $μισθός , $sal_amount ) ;
$salary_with_bonus μου = $μισθός + $μπόνους ;
#Εκτυπώστε τις πληροφορίες των εργαζομένων με βάση τις πωλήσεις
λένε «Στοιχεία υπαλλήλου: \n ' ;
λένε 'Όνομα: $name' ;
λένε 'Μισθός: $μισθός' ;
λένε 'Μισθός (με μπόνους): $salary_with_bonus' ;
Παραγωγή:
Η ακόλουθη έξοδος εμφανίζεται μετά την εκτέλεση του σεναρίου. Εδώ, το '-I.' Η επιλογή πρέπει να χρησιμοποιηθεί κατά τη στιγμή της εκτέλεσης του σεναρίου για να μάθετε την εισαγόμενη μονάδα που ορίζεται από το χρήστη:
Παράδειγμα 3: Χρήση της ενότητας που καθορίζεται από το χρήστη χρησιμοποιώντας το 'Require'
Η συνάρτηση 'require' είναι ένας άλλος τρόπος εισαγωγής των μονάδων στο σενάριο Perl και φαίνεται σε αυτό το παράδειγμα. Η λειτουργική μονάδα 'Bonus' που δημιουργήθηκε προηγουμένως εισάγεται στο σενάριο χρησιμοποιώντας τη συνάρτηση 'require'. Οι τιμές μισθού και ποσού πωλήσεων λαμβάνονται από τον χρήστη σε αυτό το σενάριο. Το άλλο μέρος του σεναρίου είναι παρόμοιο με το προηγούμενο παράδειγμα.
#!/usr/bin/perlχρησιμοποιήστε αυστηρά ;
χρήση προειδοποιήσεις ;
χρησιμοποιήστε 5.34.0 ;
απαιτούν μπόνους ;
#Λάβετε πληροφορίες από τον χρήστη
λένε 'Εισαγάγετε το όνομα υπαλλήλου:' ;
chomp ( το $όνομά μου = <> ) ;
λένε 'Εισαγάγετε τον μισθό:' ;
chomp ( ο $μισθός μου = <> ) ;
λένε 'Εισαγάγετε το ποσό πώλησης:' ;
chomp ( $sal_amount μου = <> ) ;
#Υπορουτίνα κλήσης από τη μονάδα
το μπόνους μου = Μπόνους::calculate_bonus ( $μισθός , $sal_amount ) ;
$salary_with_bonus μου = $μισθός + $μπόνους ;
#Εκτυπώστε τις πληροφορίες των εργαζομένων με βάση τις πωλήσεις
λένε «Στοιχεία υπαλλήλου: \n ' ;
λένε 'Όνομα: $name' ;
λένε 'Μισθός: $μισθός' ;
λένε 'Μισθός (με μπόνους): $salary_with_bonus' ;
Παραγωγή:
Η ακόλουθη έξοδος εμφανίζεται μετά την εκτέλεση του σεναρίου:
συμπέρασμα
Οι χρήσεις τόσο των ενσωματωμένων όσο και των ενοτήτων που καθορίζονται από το χρήστη στην Perl παρουσιάζονται σε αυτό το σεμινάριο χρησιμοποιώντας απλά παραδείγματα.