Različni primeri modulov Perl
Metode uporabe vgrajenih modulov Perl in uporabniško definiranih modulov so prikazane v tem delu vadnice.
Primer 1: Uporaba vgrajenega modula
V tem primeru so prikazane uporabe treh vgrajenih modulov Perla. To so »strogo«, »opozorila« in »5.34.0«. Modul »strict« se uporablja za omogočanje različnih vrst omejitev za pisanje skriptov Perl. Na primer, nobene spremenljivke ni mogoče deklarirati brez ključne besede 'my', če je ta modul uporabljen v skriptu. Modul »opozorila« se uporablja za prikaz različnih vrst opozorilnih sporočil po izvedbi skripta, ki kodirniku pomaga razumeti napako. Modul »5.34.0« se uporablja za uporabo različnih funkcij tega modula v skriptu. Funkcija »say«, ki se uporablja za tiskanje sporočil z novo vrstico, je značilnost tega modula.
#!/usr/bin/perl
#Omogoči omejitev za kodiranje
uporabite strogo ;
#Prikaži opozorilno sporočilo za napako
uporaba opozorila ;
#Omogoči različne storitve
uporabi 5.34.0 ;
#Uporaba ključne besede 'my' je obvezna za 'strict' modul
moj $jezik = 'Perl' ;
#Omogoči uporabo funkcije 'povej'
reči 'Naučite se programiranja v $jeziku.' ;
Izhod:
Po izvedbi skripta se prikaže naslednji rezultat:
Primer 2: Uporaba uporabniško definiranega modula
Uporabniki Perla lahko ustvarijo svoj modul za določen namen tako, da ustvarijo datoteko s pripono '.pm'. V tem primeru je uporabniško definiran modul ustvarjen in uporabljen v drugem skriptu Perl s ključno besedo »use«.
Ustvarite uporabniško definiran modul:
Ustvarite datoteko z imenom 'Bonus.pm' z naslednjim skriptom. Tu se ključna beseda »package« uporablja za opredelitev, da gre za modul. Ta modul vsebuje podprogram, ki izračuna bonus zaposlenega na podlagi plače in zneska prodaje. Dve vrednosti argumenta sta posredovani iz skripta Perl, v katerem se uporablja ta modul. Prvi argument vsebuje plačo, drugi argument pa znesek prodaje. Bonus je 15% zneska prodaje, če je plača večja od 10000. Bonus je 10% zneska prodaje, če je plača večja od 7000. Bonus je 5% zneska prodaje, če je plača nižja od 10000 '1;' se uporablja na koncu modula za vrnitev true. V nasprotnem primeru se izpiše napaka.
Bonus.pm
#!/usr/bin/perluporabite strogo ;
uporaba opozorila ;
uporabi 5.34.0 ;
paket Bonus ;
#Declare podprogram za izračun bonusa
sub izračunaj_bonus
{
# Inicializirajte spremenljivke
moja plača $ = $_ [ 0 ] ;
moj $sales_amount = $_ [ 1 ] ;
moj $bonus = 0,0 ;
#Izračunaj bonus
če ( $plače > 10000 )
{
$bonus = $sales_amount* 0,15 ;
}
elsif ( $plače > 7000 )
{
$bonus = $sales_amount* 0,10 ;
}
drugače
{
$bonus = $sales_amount* 0,05 ;
}
#Vrnite obračunani bonus
vrnitev $bonus ;
}
1 ;
Uvozite modul v skript Perl:
Ustvarite datoteko Perl z naslednjim skriptom, ki uvozi modul »Bonus«, ki je bil ustvarjen prej, da izračuna znesek bonusa zaposlenega na podlagi plače in zneska prodaje, ki sta dodeljena v skriptu.
#!/usr/bin/perluporabite strogo ;
uporaba opozorila ;
uporabi 5.34.0 ;
uporabite bonus ;
#Inicializiraj spremenljivke
moje $ime = 'Mir Sabbir' ;
moja plača $ = 60000 ;
moj $sal_amount = 9700 ;
#Pokliči podprogram iz modula
moj $bonus = Bonus::izračunaj_bonus ( $plače , $sal_znesek ) ;
moja plača $z bonusom = $plača + $bonus ;
#Natisnite informacije o zaposlenih glede na prodajo
reči 'Podrobnosti o zaposlenem: \n ' ;
reči 'Ime: $name' ;
reči 'Plača: $ plača' ;
reči 'Plača (z bonusom): $salary_with_bonus' ;
Izhod:
Po izvedbi skripta se prikaže naslednji rezultat. Tukaj je '-I.' možnost je treba uporabiti v času izvajanja skripta, da ugotovite uporabniško definiran uvoženi modul:
Primer 3: Uporaba uporabniško definiranega modula z uporabo »Zahtevaj«
Funkcija »require« je še en način uvoza modulov v skript Perl in je prikazana v tem primeru. Prej ustvarjen modul »Bonus« se uvozi v skript s funkcijo »require«. Vrednosti plače in zneska prodaje so v tem skriptu vzete od uporabnika. Drugi del scenarija je podoben prejšnjemu primeru.
#!/usr/bin/perluporabite strogo ;
uporaba opozorila ;
uporabi 5.34.0 ;
zahtevajo bonus ;
#Vzemite vnos od uporabnika
reči 'Vnesite ime zaposlenega:' ;
žvečiti ( moje $ime = <> ) ;
reči 'Vnesite plačo:' ;
žvečiti ( moja plača $ = <> ) ;
reči 'Vnesite znesek prodaje:' ;
žvečiti ( moj $sal_amount = <> ) ;
#Pokliči podprogram iz modula
moj $bonus = Bonus::izračunaj_bonus ( $plače , $sal_znesek ) ;
moja plača $z bonusom = $plača + $bonus ;
#Natisnite informacije o zaposlenih glede na prodajo
reči 'Podrobnosti o zaposlenem: \n ' ;
reči 'Ime: $name' ;
reči 'Plača: $ plača' ;
reči 'Plača (z bonusom): $salary_with_bonus' ;
Izhod:
Po izvedbi skripta se prikaže naslednji rezultat:
Zaključek
Uporaba vgrajenih in uporabniško definiranih modulov v Perlu je v tej vadnici prikazana na preprostih primerih.