Rôzne príklady modulov Perl
Metódy používania vstavaných modulov Perl a používateľsky definovaných modulov sú uvedené v tejto časti tutoriálu.
Príklad 1: Použitie vstavaného modulu
V tomto príklade je znázornené použitie troch vstavaných modulov Perlu. Sú to „prísne“, „varovania“ a „5.34.0“. Modul „strict“ sa používa na umožnenie rôznych typov obmedzení na písanie skriptov v jazyku Perl. Napríklad žiadna premenná nemôže byť deklarovaná bez kľúčového slova „my“, ak je tento modul použitý v skripte. Modul „varovania“ sa používa na zobrazenie rôznych typov varovných správ po spustení skriptu, ktorý pomáha kódovačovi pochopiť chybu. Modul „5.34.0“ sa používa na použitie rôznych funkcií tohto modulu v skripte. Funkciou tohto modulu je funkcia „povedz“, ktorá sa používa na tlač správ s novým riadkom.
#!/usr/bin/perl
#Povoliť obmedzenie pre kódovanie
používať prísne ;
#Zobrazte varovné hlásenie o chybe
použitie upozornenia ;
#Povoliť rôzne služby
použite 5.34.0 ;
#Použitie kľúčového slova 'my' je povinné pre modul 'strict'
môj $jazyk = 'Perl' ;
#Povoliť používanie funkcie „povedz“.
povedať 'Naučte sa programovanie v jazyku $.' ;
Výkon:
Po vykonaní skriptu sa zobrazí nasledujúci výstup:
Príklad 2: Použitie užívateľsky definovaného modulu
Používatelia Perlu môžu vytvoriť svoj modul na konkrétny účel vytvorením súboru s príponou „.pm“. V tomto príklade sa vytvorí užívateľsky definovaný modul a použije sa v inom perlovom skripte pomocou kľúčového slova „use“.
Vytvorte užívateľsky definovaný modul:
Vytvorte súbor s názvom „Bonus.pm“ pomocou nasledujúceho skriptu. Tu sa kľúčové slovo „package“ používa na definovanie toho, že ide o modul. Tento modul obsahuje podprogram, ktorý vypočíta bonus zamestnanca na základe mzdy a sumy predaja. Dve hodnoty argumentov sú odovzdané zo skriptu Perl, v ktorom je tento modul použitý. Prvý argument obsahuje mzdu a druhý argument obsahuje sumu predaja. Bonus je 15 % z predajnej sumy, ak je mzda vyššia ako 10 000. Bonus je 10 % z predajnej sumy, ak je mzda vyššia ako 7 000. Bonus je 5 % z predajnej sumy, ak je mzda nižšia ako 10 000 „1;“ sa používa na konci modulu na vrátenie true. V opačnom prípade sa vypíše chyba.
Bonus.pm
#!/usr/bin/perlpoužívať prísne ;
použitie upozornenia ;
použite 5.34.0 ;
balíček bonus ;
#Declare podprogram na výpočet bonusu
čiastkový výpočet_bonusu
{
# Inicializujte premenné
môj $plat = $_ [ 0 ] ;
moja suma $sales_amount = $_ [ 1 ] ;
môj $bonus = 0,0 ;
#Vypočítajte bonus
ak ( $plat > 10 000 )
{
$ bonus = $sales_amount* 0,15 ;
}
elsif ( $plat > 7000 )
{
$ bonus = $sales_amount* 0,10 ;
}
inak
{
$ bonus = $sales_amount* 0,05 ;
}
#Vráťte vypočítaný bonus
vrátiť $ bonus ;
}
1 ;
Importujte modul do skriptu Perl:
Vytvorte súbor Perl pomocou nasledujúceho skriptu, ktorý importuje modul „Bonus“, ktorý bol vytvorený skôr, na výpočet výšky bonusu zamestnanca na základe platu a sumy predaja, ktoré sú priradené v skripte.
#!/usr/bin/perlpoužívať prísne ;
použitie upozornenia ;
použite 5.34.0 ;
použiť bonus ;
#Inicializujte premenné
moje $name = 'Mir Sabbir' ;
môj $plat = 60 000 ;
moja $sal_amount = 9700 ;
#Zavolajte podprogram z modulu
môj $bonus = Bonus::výpočet_bonusu ( $plat , $sal_amount ) ;
môj $plat_s_bonusom = $plat + $bonus ;
#Vytlačte informácie o zamestnancovi na základe predaja
povedať 'Podrobnosti o zamestnancovi: \n ' ;
povedať 'Meno: $name' ;
povedať 'Plat: $plat' ;
povedať 'Plat (s bonusom): $plat_s_bonusom' ;
Výkon:
Po vykonaní skriptu sa zobrazí nasledujúci výstup. Tu je „-ja“. Voľba musí byť použitá v čase vykonávania skriptu na zistenie užívateľom definovaného importovaného modulu:
Príklad 3: Použitie užívateľsky definovaného modulu pomocou „Vyžadovať“
Funkcia „require“ je ďalším spôsobom importu modulov v skripte Perl a je znázornená v tomto príklade. Predtým vytvorený modul „Bonus“ sa importuje do skriptu pomocou funkcie „vyžadovať“. Hodnoty platu a sumy predaja sa preberajú od používateľa v tomto skripte. Ďalšia časť skriptu je podobná predchádzajúcemu príkladu.
#!/usr/bin/perlpoužívať prísne ;
použitie upozornenia ;
použite 5.34.0 ;
vyžadovať bonus ;
#Prijmite vstup od používateľa
povedať 'Zadajte meno zamestnanca:' ;
žumpa ( moje $name = <> ) ;
povedať 'Zadajte plat:' ;
žumpa ( môj $plat = <> ) ;
povedať 'Zadajte sumu predaja:' ;
žumpa ( moja $sal_amount = <> ) ;
#Zavolajte podprogram z modulu
môj $bonus = Bonus::výpočet_bonusu ( $plat , $sal_amount ) ;
môj $plat_s_bonusom = $plat + $bonus ;
#Vytlačte informácie o zamestnancovi na základe predaja
povedať 'Podrobnosti o zamestnancovi: \n ' ;
povedať 'Meno: $name' ;
povedať 'Plat: $plat' ;
povedať 'Plat (s bonusom): $plat_s_bonusom' ;
Výkon:
Po vykonaní skriptu sa zobrazí nasledujúci výstup:
Záver
Použitie vstavaných aj užívateľom definovaných modulov v Perle je znázornené v tomto návode na jednoduchých príkladoch.