Različiti primjeri Perl modula
Metode korištenja ugrađenih Perl modula i korisnički definiranih modula prikazane su u ovom dijelu vodiča.
Primjer 1: Korištenje ugrađenog modula
U ovom primjeru prikazana je uporaba triju ugrađenih modula Perla. To su 'strogo', 'upozorenja' i '5.34.0'. Modul 'strict' koristi se za omogućavanje različitih vrsta ograničenja za pisanje Perl skripti. Na primjer, nijedna se varijabla ne može deklarirati bez ključne riječi 'my' ako se ovaj modul koristi u skripti. Modul 'upozorenja' koristi se za prikaz različitih vrsta poruka upozorenja nakon izvršavanja skripte koja pomaže koderu da razumije pogrešku. Modul “5.34.0” koristi se za korištenje različitih značajki ovog modula u skripti. Funkcija “say” koja se koristi za ispis poruka s novim redom značajka je ovog modula.
#!/usr/bin/perl
#Omogući ograničenje kodiranja
koristite strogi ;
#Prikaži poruku upozorenja za pogrešku
koristiti upozorenja ;
#Omogućite različite usluge
koristiti 5.34.0 ;
#Korištenje ključne riječi 'my' obavezno je za 'strict' modul
moj $jezik = 'Perl' ;
#Omogućite korištenje značajke 'say'
reći 'Naučite programiranje na $jeziku.' ;
Izlaz:
Nakon izvršavanja skripte pojavljuje se sljedeći izlaz:
Primjer 2: Korištenje korisnički definiranog modula
Korisnici Perla mogu izraditi svoj modul za određenu svrhu stvaranjem datoteke s nastavkom '.pm'. U ovom primjeru kreiran je korisnički definiran modul koji se koristi u drugoj Perl skripti pomoću ključne riječi 'use'.
Napravite korisnički definirani modul:
Stvorite datoteku pod nazivom “Bonus.pm” sa sljedećom skriptom. Ovdje se ključna riječ 'paket' koristi za definiranje da je to modul. Ovaj modul sadrži potprogram koji izračunava bonus zaposlenika na temelju plaće i iznosa prodaje. Dvije vrijednosti argumenata prosljeđuju se iz Perl skripte u kojoj se koristi ovaj modul. Prvi argument sadrži plaću, a drugi argument sadrži iznos prodaje. Bonus je 15% od iznosa prodaje ako je plaća veća od 10000. Bonus je 10% od iznosa prodaje ako je plaća veća od 7000. Bonus je 5% od iznosa prodaje ako je plaća manja od 10000 . '1;' koristi se na kraju modula za vraćanje true. U protivnom se ispisuje pogreška.
Bonus.pm
#!/usr/bin/perlkoristite strogi ;
koristiti upozorenja ;
koristiti 5.34.0 ;
paket Bonus ;
#Declare potprogram za izračunavanje bonusa
sub izračunati_bonus
{
# Inicijalizirajte varijable
moja plaća $ = $_ [ 0 ] ;
moj $sales_amount = $_ [ 1 ] ;
moj $bonus = 0,0 ;
#Izračunajte bonus
ako ( $plaće > 10000 )
{
$bonus = $sales_amount* 0,15 ;
}
elsif ( $plaće > 7000 )
{
$bonus = $sales_amount* 0,10 ;
}
drugo
{
$bonus = $sales_amount* 0,05 ;
}
#Vratite obračunati bonus
povratak $bonus ;
}
1 ;
Uvezite modul u Perl skriptu:
Stvorite Perl datoteku sa sljedećom skriptom koja uvozi modul 'Bonus' koji je ranije stvoren za izračun iznosa bonusa zaposlenika na temelju plaće i iznosa prodaje koji su dodijeljeni u skripti.
#!/usr/bin/perlkoristite strogi ;
koristiti upozorenja ;
koristiti 5.34.0 ;
koristite bonus ;
#Inicijaliziraj varijable
moje $ime = 'Mir Sabbir' ;
moja plaća $ = 60000 ;
moj $sal_amount = 9700 ;
#Poziv potprograma iz modula
moj $bonus = Bonus::izračunaj_bonus ( $plaće , $sal_iznos ) ;
moja $plata_s_bonusom = $plaća + $bonus ;
#Ispiši podatke o zaposlenicima na temelju prodaje
reći 'Podaci o zaposleniku: \n ' ;
reći 'Ime: $name' ;
reći 'Plaća: $plata' ;
reći 'Plaća(s bonusom): $salary_with_bonus' ;
Izlaz:
Nakon izvršavanja skripte pojavljuje se sljedeći izlaz. Ovdje, '-I.' opcija se mora koristiti u vrijeme izvršavanja skripte kako bi se saznao korisnički definirani uvezeni modul:
Primjer 3: Korištenje korisnički definiranog modula pomoću 'Zahtijevaj'
Funkcija “require” još je jedan način uvoza modula u Perl skriptu i prikazana je u ovom primjeru. Prethodno kreirani “Bonus” modul se uvozi u skriptu pomoću funkcije “require”. Vrijednosti plaće i iznosa prodaje preuzimaju se od korisnika u ovoj skripti. Drugi dio skripte sličan je prethodnom primjeru.
#!/usr/bin/perlkoristite strogi ;
koristiti upozorenja ;
koristiti 5.34.0 ;
zahtijevati bonus ;
#Uzmite unos od korisnika
reći 'Unesite ime zaposlenika:' ;
žvakati ( moje $ime = <> ) ;
reći 'Unesite plaću:' ;
žvakati ( moja plaća $ = <> ) ;
reći 'Unesite iznos prodaje:' ;
žvakati ( moj $sal_amount = <> ) ;
#Poziv potprograma iz modula
moj $bonus = Bonus::izračunaj_bonus ( $plaće , $sal_iznos ) ;
moja $plata_s_bonusom = $plaća + $bonus ;
#Ispiši podatke o zaposlenicima na temelju prodaje
reći 'Podaci o zaposleniku: \n ' ;
reći 'Ime: $name' ;
reći 'Plaća: $plata' ;
reći 'Plaća(s bonusom): $salary_with_bonus' ;
Izlaz:
Nakon izvršavanja skripte pojavljuje se sljedeći izlaz:
Zaključak
Upotreba ugrađenih i korisnički definiranih modula u Perlu prikazana je u ovom vodiču pomoću jednostavnih primjera.