Įvairūs Perl modulių pavyzdžiai
Integruotų Perl modulių ir vartotojo nustatytų modulių naudojimo metodai parodyti šioje pamokos dalyje.
1 pavyzdys: Integruoto modulio naudojimas
Šiame pavyzdyje parodytas trijų integruotų Perl modulių naudojimas. Tai yra „griežti“, „įspėjimai“ ir „5.34.0“. „Griežtas“ modulis naudojamas įvairių tipų apribojimams įgalinti rašant Perl scenarijus. Pavyzdžiui, joks kintamasis negali būti deklaruojamas be „mano“ raktinio žodžio, jei scenarijuje naudojamas šis modulis. „Įspėjimų“ modulis naudojamas rodyti įvairių tipų įspėjimo pranešimus, kai vykdomas scenarijus, padedantis programuotojui suprasti klaidą. Modulis „5.34.0“ naudojamas įvairioms šio modulio funkcijoms naudoti scenarijuje. Funkcija „pasakyti“, kuri naudojama spausdinti pranešimus su nauja eilute, yra šio modulio funkcija.
#!/usr/bin/perl
#Įgalinti kodavimo apribojimą
naudoti griežtai ;
#Rodyti įspėjimo pranešimą apie klaidą
naudoti įspėjimai ;
#Įgalinkite įvairias paslaugas
naudoti 5.34.0 ;
#Raktažodžio „mano“ naudojimas yra privalomas moduliui „griežtas“.
mano $kalba = 'Perlis' ;
#Įgalinkite funkciją „pasakyti“.
pasakyti 'Learn $language programing.' ;
Išvestis:
Įvykdžius scenarijų pasirodo ši išvestis:
2 pavyzdys: Vartotojo nustatyto modulio naudojimas
Perl vartotojai gali sukurti savo modulį tam tikram tikslui sukurdami failą su plėtiniu '.pm'. Šiame pavyzdyje sukuriamas vartotojo apibrėžtas modulis ir jis naudojamas kitame Perl scenarijuje naudojant raktinį žodį „use“.
Sukurkite vartotojo nustatytą modulį:
Sukurkite failą pavadinimu „Bonus.pm“ naudodami šį scenarijų. Čia raktinis žodis „paketas“ naudojamas norint apibrėžti, kad tai yra modulis. Šiame modulyje yra paprogramė, kuri apskaičiuoja darbuotojo premiją pagal atlyginimą ir pardavimo sumą. Iš Perl scenarijaus, kuriame naudojamas šis modulis, perduodamos dvi argumentų reikšmės. Pirmame argumente nurodomas atlyginimas, o antrame – pardavimo suma. Premija yra 15% nuo pardavimo sumos, jei atlyginimas didesnis nei 10000. Premija yra 10% nuo pardavimo sumos, jei atlyginimas didesnis nei 7000. Premija yra 5% nuo pardavimo sumos, jei atlyginimas yra mažesnis nei 10000 „1;“ naudojamas modulio pabaigoje, kad būtų grąžinta tiesa. Priešingu atveju išspausdinama klaida.
Bonus.pm
#!/usr/bin/perlnaudoti griežtai ;
naudoti įspėjimai ;
naudoti 5.34.0 ;
paketo premija ;
#Declare paprogramė premijai apskaičiuoti
sub Calculation_bonus
{
# Inicijuoti kintamuosius
mano $ atlyginimas = $_ [ 0 ] ;
mano $sales_suma = $_ [ 1 ] ;
mano $ premija = 0,0 ;
#Apskaičiuokite premiją
jeigu ( $ atlyginimas > 10 000 )
{
$ premija = $sales_amount* 0.15 ;
}
elsif ( $ atlyginimas > 7000 )
{
$ premija = $sales_amount* 0.10 ;
}
Kitas
{
$ premija = $sales_amount* 0,05 ;
}
#Grąžinkite apskaičiuotą premiją
grąžinti $ premija ;
}
1 ;
Importuokite modulį į „Perl“ scenarijų:
Sukurkite Perl failą su šiuo scenarijumi, kuris importuoja anksčiau sukurtą „Bonus“ modulį, kad apskaičiuotumėte darbuotojo premijos sumą pagal scenarijuje priskirtą atlyginimą ir pardavimo sumą.
#!/usr/bin/perlnaudoti griežtai ;
naudoti įspėjimai ;
naudoti 5.34.0 ;
naudok Bonusą ;
#Inicijuoti kintamuosius
mano $vardas = 'Miras Sabiras' ;
mano $ atlyginimas = 60 000 ;
mano $sal_amount = 9700 ;
#Skambinimo paprogramė iš modulio
mano $ premija = Premija::calculate_bonus ( $ atlyginimas , $sal_suma ) ;
mano $alga_su_premija = $ atlyginimas + $ priedas ;
#Spausdinkite darbuotojo informaciją pagal pardavimus
pasakyti „Išsami informacija apie darbuotoją: \n “ ;
pasakyti 'Vardas: $vardas' ;
pasakyti 'Atlyginimas: $ atlyginimas' ;
pasakyti 'Atlyginimas (su priedu): $ atlyginimas_su priede' ;
Išvestis:
Įvykdžius scenarijų pasirodo ši išvestis. Čia „-aš“. Parinktis turi būti naudojama scenarijaus vykdymo metu, norint sužinoti vartotojo nustatytą importuotą modulį:
3 pavyzdys: vartotojo nustatyto modulio naudojimas naudojant „Reikalauti“
Funkcija „require“ yra dar vienas būdas importuoti modulius į „Perl“ scenarijų, ir ji parodyta šiame pavyzdyje. Anksčiau sukurtas „Bonus“ modulis yra importuojamas į scenarijų naudojant „reikalauti“ funkciją. Atlyginimo ir pardavimo sumos reikšmės yra paimtos iš vartotojo šiame scenarijuje. Kita scenarijaus dalis yra panaši į ankstesnį pavyzdį.
#!/usr/bin/perlnaudoti griežtai ;
naudoti įspėjimai ;
naudoti 5.34.0 ;
reikalauti premijos ;
#Priimkite vartotojo informaciją
pasakyti 'Įveskite darbuotojo vardą:' ;
chomp ( mano $vardas = <> ) ;
pasakyti 'Įveskite atlyginimą:' ;
chomp ( mano $ atlyginimas = <> ) ;
pasakyti 'Įveskite pardavimo sumą:' ;
chomp ( mano $sal_amount = <> ) ;
#Skambinimo paprogramė iš modulio
mano $ premija = Premija::calculate_bonus ( $ atlyginimas , $sal_suma ) ;
mano $alga_su_premija = $ atlyginimas + $ priedas ;
#Spausdinkite darbuotojo informaciją pagal pardavimus
pasakyti „Išsami informacija apie darbuotoją: \n “ ;
pasakyti 'Vardas: $vardas' ;
pasakyti 'Atlyginimas: $ atlyginimas' ;
pasakyti 'Atlyginimas (su priedu): $alga_su priede' ;
Išvestis:
Įvykdžius scenarijų pasirodo ši išvestis:
Išvada
Šiame vadove pateikiami paprasti pavyzdžiai, kaip naudoti „Perl“ integruotus ir vartotojo apibrėžtus modulius.