Erilaisia esimerkkejä Perl-moduuleista
Sisäänrakennettujen Perl-moduulien ja käyttäjän määrittämien moduulien käyttötavat esitetään tässä opetusohjelman osassa.
Esimerkki 1: Sisäänrakennetun moduulin käyttö
Tässä esimerkissä on esitetty kolmen Perlin sisäänrakennetun moduulin käyttötavat. Nämä ovat 'tiukat', 'varoitukset' ja '5.34.0'. 'Strict'-moduulia käytetään mahdollistamaan erityyppiset rajoitukset Perl-skriptien kirjoittamiseen. Esimerkiksi mitään muuttujaa ei voida ilmoittaa ilman 'my'-avainsanaa, jos tätä moduulia käytetään komentosarjassa. 'Varoitukset' -moduulia käytetään näyttämään erityyppisiä varoitusviestejä sen jälkeen, kun komentosarja on suoritettu, mikä auttaa koodaajaa ymmärtämään virheen. '5.34.0' -moduulia käytetään tämän moduulin eri ominaisuuksien käyttämiseen komentosarjassa. Sano-toiminto, jota käytetään viestien tulostamiseen rivinvaihdolla, on tämän moduulin ominaisuus.
#!/usr/bin/perl
#Ota käyttöön koodauksen rajoitus
käytä tiukkaa ;
#Näytä varoitusviesti virheestä
käyttää varoitukset ;
#Ota käyttöön eri palvelut
käytä 5.34.0 ;
#Avainsanan 'oma' käyttö on pakollista 'tiukka'-moduulissa
minun $kieleni = 'Perl' ;
#Ota 'sano'-ominaisuuden käyttö käyttöön
sanoa 'Opi $language ohjelmointi.' ;
Lähtö:
Seuraava tulos tulee näkyviin komentosarjan suorittamisen jälkeen:
Esimerkki 2: Käyttäjän määrittämän moduulin käyttö
Perl-käyttäjät voivat luoda moduulinsa tiettyyn tarkoitukseen luomalla tiedoston, jonka tunniste on '.pm'. Tässä esimerkissä luodaan käyttäjän määrittämä moduuli ja sitä käytetään toisessa Perl-komentosarjassa käyttämällä avainsanaa 'use'.
Luo käyttäjän määrittämä moduuli:
Luo tiedosto nimeltä 'Bonus.pm' seuraavalla skriptillä. Tässä 'paketti'-avainsanaa käytetään määrittelemään, että se on moduuli. Tämä moduuli sisältää aliohjelman, joka laskee työntekijän bonuksen palkan ja myyntisumman perusteella. Kaksi argumenttiarvoa välitetään Perl-komentosarjasta, jossa tätä moduulia käytetään. Ensimmäinen argumentti sisältää palkan ja toinen argumentti myynnin määrän. Bonus on 15 % myyntimäärästä, jos palkka on yli 10 000. Bonus on 10 % myyntimäärästä, jos palkka on yli 7 000. Bonus on 5 % myyntimäärästä, jos palkka on alle 10 000 . '1;' käytetään moduulin lopussa palauttamaan tosi. Muussa tapauksessa tulostetaan virheilmoitus.
Bonus.pm
#!/usr/bin/perlkäytä tiukkaa ;
käyttää varoitukset ;
käytä 5.34.0 ;
paketin bonus ;
#Declare-alirutiini bonuksen laskemiseksi
alilaskentabonus
{
# Alusta muuttujat
minun $palkkani = $_ [ 0 ] ;
minun $sales_amount = $_ [ 1 ] ;
$bonukseni = 0,0 ;
#Laske bonus
jos ( $palkka > 10 000 )
{
$bonus = $sales_amount* 0,15 ;
}
elsif ( $palkka > 7000 )
{
$bonus = $sales_amount* 0.10 ;
}
muu
{
$bonus = $sales_amount* 0,05 ;
}
#Palauta laskettu bonus
palata $bonus ;
}
1 ;
Tuo moduuli Perl-skriptiin:
Luo Perl-tiedosto seuraavalla skriptillä, joka tuo aiemmin luodun ”Bonus”-moduulin laskeaksesi työntekijän bonussumman skriptissä määritettyjen palkan ja myyntimäärien perusteella.
#!/usr/bin/perlkäytä tiukkaa ;
käyttää varoitukset ;
käytä 5.34.0 ;
käytä Bonusta ;
#Alusta muuttujat
minun $nimi = 'Mir Sabbir' ;
minun $palkkani = 60 000 ;
minun $sal_amount = 9700 ;
#Soita aliohjelma moduulista
$bonukseni = Bonus::calculate_bonus ( $palkka , $sal_amount ) ;
$palkkani_bonuksella = $palkka + $bonus ;
#Tulosta työntekijätiedot myynnin perusteella
sanoa 'Työntekijätiedot: \n ' ;
sanoa 'Nimi: $nimi' ;
sanoa 'Palkka: $palkka' ;
sanoa 'Palkka (bonuksella): $palkka_bonuksella' ;
Lähtö:
Seuraava tulos tulee näkyviin komentosarjan suorittamisen jälkeen. Tässä '-minä'. -vaihtoehtoa on käytettävä komentosarjaa suoritettaessa, jotta saadaan selville käyttäjän määrittämä tuotu moduuli:
Esimerkki 3: Käyttäjän määrittämän moduulin käyttäminen 'Vaadi'-toiminnolla
'Require'-funktio on toinen tapa tuoda moduulit Perl-skriptissä, ja se näkyy tässä esimerkissä. Aiemmin luotu “Bonus”-moduuli tuodaan skriptiin “require”-toiminnolla. Palkan ja myyntisumman arvot otetaan käyttäjältä tässä skriptissä. Käsikirjoituksen toinen osa on samanlainen kuin edellinen esimerkki.
#!/usr/bin/perlkäytä tiukkaa ;
käyttää varoitukset ;
käytä 5.34.0 ;
vaativat bonuksen ;
#Ota syöte käyttäjältä
sanoa 'Anna työntekijän nimi:' ;
chomp ( minun $nimi = <> ) ;
sanoa 'Syötä palkka:' ;
chomp ( minun $palkkani = <> ) ;
sanoa 'Anna myyntimäärä:' ;
chomp ( minun $sal_amount = <> ) ;
#Soita aliohjelma moduulista
$bonukseni = Bonus::calculate_bonus ( $palkka , $sal_amount ) ;
$palkkani_bonuksella = $palkka + $bonus ;
#Tulosta työntekijätiedot myynnin perusteella
sanoa 'Työntekijätiedot: \n ' ;
sanoa 'Nimi: $nimi' ;
sanoa 'Palkka: $palkka' ;
sanoa 'Palkka (bonuksella): $palkka_bonuksella' ;
Lähtö:
Seuraava tulos tulee näkyviin komentosarjan suorittamisen jälkeen:
Johtopäätös
Sekä sisäänrakennettujen että käyttäjän määrittämien moduulien käyttö Perlissä on esitetty tässä opetusohjelmassa yksinkertaisten esimerkkien avulla.