Různé příklady modulů Perl
Metody použití vestavěných modulů Perl a uživatelsky definovaných modulů jsou uvedeny v této části tutoriálu.
Příklad 1: Použití vestavěného modulu
V tomto příkladu je ukázáno použití tří vestavěných modulů Perlu. Jsou to „přísná“, „varování“ a „5.34.0“. Modul „strict“ se používá k povolení různých typů omezení pro psaní skriptů v Perlu. Například žádná proměnná nemůže být deklarována bez klíčového slova „my“, pokud je tento modul použit ve skriptu. Modul „warnings“ se používá k zobrazení různých typů varovných zpráv po spuštění skriptu, který pomáhá kodéru pochopit chybu. Modul „5.34.0“ se používá k použití různých funkcí tohoto modulu ve skriptu. Funkce „say“, která se používá k tisku zpráv s novým řádkem, je funkcí tohoto modulu.
#!/usr/bin/perl
#Povolit omezení pro kódování
používat přísné ;
#Zobrazte varovnou zprávu o chybě
použití varování ;
#Povolit různé služby
použijte 5.34.0 ;
#Použití klíčového slova 'my' je povinné pro modul 'strict'
můj $jazyk = 'Perl' ;
#Povolit použití funkce 'řekni'
říci 'Naučte se programování v $language.' ;
Výstup:
Po spuštění skriptu se zobrazí následující výstup:
Příklad 2: Použití uživatelem definovaného modulu
Uživatelé Perlu mohou vytvořit svůj modul pro konkrétní účel vytvořením souboru s příponou „.pm“. V tomto příkladu je vytvořen uživatelsky definovaný modul a je použit v jiném skriptu v Perlu pomocí klíčového slova „use“.
Vytvořte modul definovaný uživatelem:
Pomocí následujícího skriptu vytvořte soubor s názvem „Bonus.pm“. Zde se klíčové slovo „package“ používá k definování toho, že se jedná o modul. Tento modul obsahuje podprogram, který vypočítává bonus zaměstnance na základě mzdy a částky prodeje. Dvě hodnoty argumentů jsou předány ze skriptu Perl, ve kterém je tento modul použit. První argument obsahuje mzdu a druhý argument obsahuje částku prodeje. Bonus je 15 % z částky prodeje, pokud je plat vyšší než 10 000. Bonus je 10 % z částky prodeje, pokud je plat vyšší než 7 000. Bonus je 5 % z částky prodeje, pokud je plat nižší než 10 000 „1;“ se používá na konci modulu pro návrat true. V opačném případě se vytiskne chyba.
Bonus.pm
#!/usr/bin/perlpoužívat přísné ;
použití varování ;
použijte 5.34.0 ;
balíček bonus ;
#Declare podprogram pro výpočet bonusu
dílčí vypočítat_bonus
{
# Inicializujte proměnné
můj $plat = $_ [ 0 ] ;
moje $sales_amount = $_ [ 1 ] ;
můj $bonus = 0,0 ;
#Vypočítejte bonus
-li ( $plat > 10 000 )
{
$ bonus = $sales_amount* 0,15 ;
}
elsif ( $plat > 7000 )
{
$ bonus = $sales_amount* 0,10 ;
}
jiný
{
$ bonus = $sales_amount* 0,05 ;
}
#Vraťte vypočítaný bonus
vrátit se $ bonus ;
}
1 ;
Import modulu do skriptu Perl:
Vytvořte soubor Perl pomocí následujícího skriptu, který importuje modul „Bonus“, který byl vytvořen dříve, pro výpočet částky bonusu zaměstnance na základě platu a částky prodeje, které jsou přiřazeny ve skriptu.
#!/usr/bin/perlpoužívat přísné ;
použití varování ;
použijte 5.34.0 ;
použít bonus ;
#Inicializovat proměnné
moje $jméno = 'Mir Sabbir' ;
můj $plat = 60 000 ;
moje $sal_amount = 9700 ;
#Zavolejte podprogram z modulu
můj $bonus = Bonus::výpočet_bonusu ( $plat , $sal_amount ) ;
můj $plat_s_bonusem = $plat + $bonus ;
#Vytiskněte informace o zaměstnancích na základě prodeje
říci 'Podrobnosti o zaměstnancích: \n ' ;
říci 'Jméno: $name' ;
říci 'Plat: $plat' ;
říci 'Plat (s bonusem): $salary_with_bonus' ;
Výstup:
Po provedení skriptu se zobrazí následující výstup. Zde '-já.' volba musí být použita v době provádění skriptu pro zjištění uživatelem definovaného importovaného modulu:
Příklad 3: Použití uživatelem definovaného modulu pomocí „Vyžadovat“
Funkce „vyžadovat“ je dalším způsobem importu modulů ve skriptu Perl a je ukázána v tomto příkladu. Dříve vytvořený modul „Bonus“ se importuje do skriptu pomocí funkce „vyžadovat“. Hodnoty mzdy a částky prodeje jsou v tomto skriptu převzaty od uživatele. Další část skriptu je podobná předchozímu příkladu.
#!/usr/bin/perlpoužívat přísné ;
použití varování ;
použijte 5.34.0 ;
vyžadovat bonus ;
#Převzít vstup od uživatele
říci 'Zadejte jméno zaměstnance:' ;
žvýkat ( moje $jméno = <> ) ;
říci 'Zadejte plat:' ;
žvýkat ( můj $plat = <> ) ;
říci 'Zadejte částku prodeje:' ;
žvýkat ( moje $sal_amount = <> ) ;
#Zavolejte podprogram z modulu
můj $bonus = Bonus::výpočet_bonusu ( $plat , $sal_amount ) ;
můj $plat_s_bonusem = $plat + $bonus ;
#Vytiskněte informace o zaměstnancích na základě prodeje
říci 'Podrobnosti o zaměstnancích: \n ' ;
říci 'Jméno: $name' ;
říci 'Plat: $plat' ;
říci 'Plat (s bonusem): $salary_with_bonus' ;
Výstup:
Po spuštění skriptu se zobrazí následující výstup:
Závěr
Použití vestavěných i uživatelsky definovaných modulů v Perlu je ukázáno v tomto tutoriálu na jednoduchých příkladech.