Erinevad Perli moodulite näited
Sisseehitatud Perli moodulite ja kasutaja määratud moodulite kasutamise meetodid on näidatud õpetuse selles osas.
Näide 1: Sisseehitatud mooduli kasutamine
Selles näites on näidatud kolme Perli sisseehitatud mooduli kasutusvõimalused. Need on 'ranged', 'hoiatused' ja '5.34.0'. 'Ranget' moodulit kasutatakse erinevat tüüpi piirangute lubamiseks Perli skriptide kirjutamiseks. Näiteks ei saa ühtegi muutujat deklareerida ilma märksõna 'minu'ta, kui seda moodulit skriptis kasutatakse. Moodulit 'hoiatused' kasutatakse eri tüüpi hoiatusteadete kuvamiseks pärast skripti käivitamist, mis aitab kodeerijal veast aru saada. Moodulit “5.34.0” kasutatakse selle mooduli erinevate funktsioonide kasutamiseks skriptis. Selle mooduli funktsiooniks on 'ütlemise' funktsioon, mida kasutatakse reavahetusega sõnumite printimiseks.
#!/usr/bin/perl
#Luba kodeerimise piirang
kasutage ranget ;
#Kuva veateade
kasutada hoiatused ;
#Luba erinevad teenused
kasuta 5.34.0 ;
#Märksõna 'minu' kasutamine on 'range' mooduli puhul kohustuslik
minu $keel = 'Perl' ;
#Lubage funktsiooni 'ütlemine' kasutamine
öelda 'Õpi $language programming.' ;
Väljund:
Pärast skripti käivitamist kuvatakse järgmine väljund:
Näide 2: Kasutaja määratud mooduli kasutamine
Perli kasutajad saavad luua oma mooduli teatud eesmärgil, luues faili laiendiga '.pm'. Selles näites luuakse kasutaja määratud moodul ja seda kasutatakse teises Perli skriptis, kasutades märksõna 'use'.
Looge kasutaja määratud moodul:
Looge fail nimega 'Bonus.pm' järgmise skriptiga. Siin kasutatakse märksõna 'pakett' määratlemaks, et tegemist on mooduliga. See moodul sisaldab alamprogrammi, mis arvutab töötaja lisatasu töötasu ja müügisumma alusel. Perli skriptist, milles seda moodulit kasutatakse, edastatakse kaks argumendi väärtust. Esimene argument sisaldab palka ja teine argument müügisummat. Boonus on 15% müügisummast, kui palk on üle 10000. Lisatasu on 10% müügisummast, kui palk on üle 7000. Boonus on 5% müügisummast, kui palk on alla 10000 '1;' kasutatakse mooduli lõpus tõeseks tagastamiseks. Vastasel juhul prinditakse viga.
Boonus.pm
#!/usr/bin/perlkasutage ranget ;
kasutada hoiatused ;
kasuta 5.34.0 ;
paketi boonus ;
#Deklareeri alamprogramm boonuse arvutamiseks
alam arvutada_boonus
{
# Initsialiseerige muutujad
minu $palk = $_ [ 0 ] ;
minu $müügisumma = $_ [ 1 ] ;
minu $ boonus = 0,0 ;
#Arvuta boonus
kui ( $ palk > 10 000 )
{
$ boonus = $sales_amount* 0,15 ;
}
elsif ( $ palk > 7000 )
{
$ boonus = $sales_amount* 0.10 ;
}
muidu
{
$ boonus = $sales_amount* 0,05 ;
}
#Tagasta arvutatud boonus
tagasi $ boonus ;
}
1 ;
Mooduli importimine Perli skripti:
Looge järgmise skriptiga Perli fail, mis impordib varem loodud mooduli “Bonus”, et arvutada töötaja boonussumma skriptis määratud palga ja müügisumma alusel.
#!/usr/bin/perlkasutage ranget ;
kasutada hoiatused ;
kasuta 5.34.0 ;
kasuta boonust ;
#Initsialiseeri muutujad
minu $nimi = 'Härra Sabbir' ;
minu $palk = 60 000 ;
minu $sal_amount = 9700 ;
#Kutsu alamprogramm moodulist
minu $ boonus = Boonus::arvuta_boonus ( $ palk , $sal_amount ) ;
minu $palk_koos_boonusega = $palk + $boonus ;
#Prindige töötajate teave müügi põhjal
öelda 'Töötaja üksikasjad: \n ' ;
öelda 'Nimi: $nimi' ;
öelda 'Palk: $palk' ;
öelda 'Palk (koos boonusega): $palk_boonusega' ;
Väljund:
Pärast skripti täitmist ilmub järgmine väljund. Siin on '-mina'. kasutaja määratud imporditud mooduli väljaselgitamiseks tuleb skripti käivitamisel kasutada suvandit:
Näide 3: kasutaja määratud mooduli kasutamine 'Nõua' abil
Funktsioon 'nõua' on veel üks viis Perli skripti moodulite importimiseks ja see on näidatud selles näites. Eelnevalt loodud moodul “Bonus” imporditakse skripti funktsiooni “nõua” abil. Palga ja müügisumma väärtused võetakse selles skriptis kasutajalt. Skripti teine osa on sarnane eelmisele näitele.
#!/usr/bin/perlkasutage ranget ;
kasutada hoiatused ;
kasuta 5.34.0 ;
nõuda boonust ;
#Võtke kasutajalt sisend
öelda 'Sisestage töötaja nimi:' ;
chomp ( minu $nimi = <> ) ;
öelda 'Sisestage palk:' ;
chomp ( minu $palk = <> ) ;
öelda 'Sisestage müügisumma:' ;
chomp ( minu $sal_amount = <> ) ;
#Kutsu alamprogramm moodulist
minu $ boonus = Boonus::arvuta_boonus ( $ palk , $sal_amount ) ;
minu $palk_koos_boonusega = $palk + $boonus ;
#Prindige töötajate teave müügi põhjal
öelda 'Töötaja üksikasjad: \n ' ;
öelda 'Nimi: $nimi' ;
öelda 'Palk: $palk' ;
öelda 'Palk (koos boonusega): $palk_boonusega' ;
Väljund:
Pärast skripti käivitamist kuvatakse järgmine väljund:
Järeldus
Selles õpetuses näidatakse lihtsate näidete abil nii sisseehitatud kui ka kasutaja määratud moodulite kasutusvõimalusi Perlis.