Dažādi Perl moduļu piemēri
Iebūvēto Perl moduļu un lietotāja definēto moduļu izmantošanas metodes ir parādītas šajā apmācības daļā.
1. piemērs: Iebūvētā moduļa izmantošana
Šajā piemērā ir parādīti trīs Perl iebūvēto moduļu lietojumi. Tie ir “stingri”, “brīdinājumi” un “5.34.0”. 'Stingrais' modulis tiek izmantots, lai iespējotu dažāda veida ierobežojumus Perl skriptu rakstīšanai. Piemēram, ja skriptā tiek izmantots šis modulis, nevienu mainīgo nevar deklarēt bez atslēgvārda “mans”. “Brīdinājumu” modulis tiek izmantots, lai parādītu dažāda veida brīdinājuma ziņojumus pēc skripta izpildes, kas palīdz kodētājam izprast kļūdu. Modulis “5.34.0” tiek izmantots, lai skriptā izmantotu dažādas šī moduļa funkcijas. Funkcija “say”, kas tiek izmantota, lai drukātu ziņojumus ar jaunu rindiņu, ir šī moduļa funkcija.
#!/usr/bin/perl
#Iespējot kodēšanas ierobežojumu
izmantojiet stingru ;
#Rādīt brīdinājuma ziņojumu par kļūdu
izmantot brīdinājumus ;
#Iespējot dažādus pakalpojumus
izmantot 5.34.0 ;
#Atslēgvārda 'mans' izmantošana ir obligāta modulim 'stingrs'.
mana $valoda = 'Perl' ;
#Iespējojiet funkcijas 'sakiet' lietošanu
saki 'Learn $language programming.' ;
Izvade:
Pēc skripta izpildes tiek parādīta šāda izvade:
2. piemērs. Lietotāja definētā moduļa izmantošana
Perl lietotāji var izveidot savu moduli noteiktam mērķim, izveidojot failu ar paplašinājumu “.pm”. Šajā piemērā tiek izveidots lietotāja definēts modulis, un tas tiek izmantots citā Perl skriptā, izmantojot atslēgvārdu “use”.
Izveidojiet lietotāja definētu moduli:
Izveidojiet failu ar nosaukumu “Bonus.pm” ar šādu skriptu. Šeit tiek izmantots atslēgvārds “pakete”, lai definētu, ka tas ir modulis. Šajā modulī ir apakšprogramma, kas aprēķina darbinieka prēmiju, pamatojoties uz algu un pārdošanas apjomu. No Perl skripta, kurā tiek izmantots šis modulis, tiek nodotas divas argumentu vērtības. Pirmajā argumentā ir ietverta alga, bet otrajā - pārdošanas summa. Ja alga ir lielāka par 10000, prēmija ir 15% no pārdošanas summas. Ja alga ir lielāka par 7000, prēmija ir 10% no pārdošanas summas. Ja alga ir mazāka par 10000, prēmija ir 5% no pārdošanas apjoma. '1;' tiek izmantots moduļa beigās, lai atgrieztu true. Pretējā gadījumā tiek izdrukāta kļūda.
Bonuss.pm
#!/usr/bin/perlizmantojiet stingru ;
izmantot brīdinājumus ;
izmantot 5.34.0 ;
komplekta bonuss ;
#Deklarēt apakšprogrammu, lai aprēķinātu bonusu
apakšaprēķināt_bonusu
{
# Inicializējiet mainīgos
mana $ alga = $_ [ 0 ] ;
mana $sales_summa = $_ [ 1 ] ;
mans $ bonuss = 0,0 ;
#Aprēķināt bonusu
ja ( $alga > 10 000 )
{
$ bonuss = $sales_amount* 0.15 ;
}
elsif ( $alga > 7000 )
{
$ bonuss = $sales_amount* 0.10 ;
}
cits
{
$ bonuss = $sales_amount* 0,05 ;
}
#Atdodiet aprēķināto bonusu
atgriezties $ bonuss ;
}
1 ;
Moduļa importēšana Perl skriptā:
Izveidojiet Perl failu ar šādu skriptu, kas importē iepriekš izveidoto moduli “Bonuss”, lai aprēķinātu darbinieka bonusa summu, pamatojoties uz skriptā piešķirto algu un pārdošanas apjomu.
#!/usr/bin/perlizmantojiet stingru ;
izmantot brīdinājumus ;
izmantot 5.34.0 ;
izmantot Bonusu ;
#Inicializēt mainīgos
mans $vārds = 'Mirs Sabbir' ;
mana $ alga = 60 000 ;
mana $sal_summa = 9700 ;
#Zvanīt apakšprogrammai no moduļa
mans $ bonuss = Bonuss::calculate_bonus ( $alga , $sal_summa ) ;
mana $alga_ar_bonusu = $alga + $bonuss ;
#Izdrukājiet informāciju par darbinieku, pamatojoties uz pārdošanu
saki 'Sīkāka informācija par darbinieku: \n ' ;
saki 'Vārds: $name' ;
saki 'Alga: $alga' ;
saki 'Alga (ar piemaksu): $alga_ar_bonusu' ;
Izvade:
Pēc skripta izpildes tiek parādīta šāda izvade. Lūk, “-es”. skripta izpildes laikā ir jāizmanto opcija, lai uzzinātu lietotāja definēto importēto moduli:
3. piemērs: lietotāja definētā moduļa izmantošana, izmantojot “Require”
Funkcija “Require” ir vēl viens veids, kā importēt moduļus Perl skriptā, un tas ir parādīts šajā piemērā. Iepriekš izveidotais modulis “Bonuss” tiek importēts skriptā, izmantojot funkciju “Require”. Algas un pārdošanas summas vērtības tiek ņemtas no lietotāja šajā skriptā. Otra skripta daļa ir līdzīga iepriekšējam piemēram.
#!/usr/bin/perlizmantojiet stingru ;
izmantot brīdinājumus ;
izmantot 5.34.0 ;
pieprasīt Bonusu ;
#Pieņemiet lietotāja informāciju
saki 'Ievadiet darbinieka vārdu:' ;
chomp ( mans $vārds = <> ) ;
saki 'Ievadiet algu:' ;
chomp ( mana $ alga = <> ) ;
saki 'Ievadiet pārdošanas summu:' ;
chomp ( mana $sal_summa = <> ) ;
#Zvanīt apakšprogrammai no moduļa
mans $ bonuss = Bonuss::calculate_bonus ( $alga , $sal_summa ) ;
mana $alga_ar_bonusu = $alga + $bonuss ;
#Izdrukājiet informāciju par darbinieku, pamatojoties uz pārdošanu
saki 'Sīkāka informācija par darbinieku: \n ' ;
saki 'Vārds: $name' ;
saki 'Alga: $alga' ;
saki 'Alga (ar bonusu): $alga_ar_bonusu' ;
Izvade:
Pēc skripta izpildes tiek parādīta šāda izvade:
Secinājums
Šajā apmācībā ir parādīti gan iebūvēto, gan lietotāja definēto Perl moduļu lietojumi, izmantojot vienkāršus piemērus.