Olika exempel på Perl-moduler
Metoderna för att använda de inbyggda Perl-modulerna och användardefinierade moduler visas i den här delen av handledningen.
Exempel 1: Använda den inbyggda modulen
I det här exemplet visas användningen av tre inbyggda moduler i Perl. Dessa är 'strikt', 'varningar' och '5.34.0'. Den 'strikta' modulen används för att möjliggöra de olika typerna av begränsningar för att skriva Perl-skript. Till exempel kan ingen variabel deklareras utan nyckelordet 'my' om denna modul används i skriptet. Modulen 'varningar' används för att visa olika typer av varningsmeddelanden efter att ha kört skriptet som hjälper kodaren att förstå felet. Modulen '5.34.0' används för att använda de olika funktionerna i denna modul i skriptet. Funktionen 'säg' som används för att skriva ut meddelanden med ny rad är funktionen i denna modul.
#!/usr/bin/perl
#Aktivera begränsning för kodning
använd strikt ;
#Visa varningsmeddelande för fel
använda sig av varningar ;
#Aktivera olika tjänster
använd 5.34.0 ;
#Användning av 'mitt' nyckelord är obligatoriskt för modulen 'strikt'.
mitt $språk = 'Perl' ;
#Aktivera användningen av 'säg'-funktionen
säga 'Lär dig $language programmering.' ;
Produktion:
Följande utdata visas efter exekvering av skriptet:
Exempel 2: Använda den användardefinierade modulen
Perl-användarna kan skapa sin modul för ett visst syfte genom att skapa en fil med filtillägget '.pm'. I det här exemplet skapas en användardefinierad modul och den används i ett annat Perl-skript med nyckelordet 'använd'.
Skapa en användardefinierad modul:
Skapa en fil med namnet 'Bonus.pm' med följande skript. Här används nyckelordet 'paket' för att definiera att det är en modul. Denna modul innehåller en subrutin som beräknar bonusen för en anställd baserat på lönen och försäljningsbeloppet. Två argumentvärden skickas från Perl-skriptet där denna modul används. Det första argumentet innehåller lönen och det andra argumentet innehåller försäljningsbeloppet. Bonusen är 15% av försäljningsbeloppet om lönen är mer än 10000. Bonusen är 10% av försäljningsbeloppet om lönen är mer än 7000. Bonusen är 5% av försäljningsbeloppet om lönen är mindre än 10000 '1;' används i slutet av modulen för att returnera sant. Annars skrivs ett fel ut.
Bonus.pm
#!/usr/bin/perlanvänd strikt ;
använda sig av varningar ;
använd 5.34.0 ;
paketbonus ;
#Deklarera subrutin för att beräkna bonus
sub calculate_bonus
{
# Initiera variablerna
min $lön = $_ [ 0 ] ;
mitt $försäljningsbelopp = $_ [ 1 ] ;
min $bonus = 0,0 ;
#Beräkna bonus
om ( $lön > 10 000 )
{
$bonus = $sales_amount* 0,15 ;
}
elsif ( $lön > 7000 )
{
$bonus = $sales_amount* 0,10 ;
}
annan
{
$bonus = $sales_amount* 0,05 ;
}
#Returnera den beräknade bonusen
lämna tillbaka $bonus ;
}
1 ;
Importera en modul i ett Perl-skript:
Skapa en Perl-fil med följande skript som importerar 'Bonus'-modulen som skapats tidigare för att beräkna bonusbeloppet för en anställd baserat på lönen och försäljningsbeloppet som tilldelas i skriptet.
#!/usr/bin/perlanvänd strikt ;
använda sig av varningar ;
använd 5.34.0 ;
använd Bonus ;
#Initiera variabler
mitt $namn = 'Mir Sabbir' ;
min $lön = 60 000 ;
mitt $sal_belopp = 9700 ;
#Call subrutin från modulen
min $bonus = Bonus::calculate_bonus ( $lön , $sal_amount ) ;
min $lön_med_bonus = $lön + $bonus ;
#Skriv ut personalinformationen baserat på försäljning
säga 'Anställda detaljer: \n ' ;
säga 'Namn: $name' ;
säga 'Lön: $lön' ;
säga 'Lön (med bonus): $lön_med_bonus' ;
Produktion:
Följande utdata visas efter exekvering av skriptet. Här, '-jag'. alternativet måste användas när skriptet körs för att ta reda på den användardefinierade importerade modulen:
Exempel 3: Använda den användardefinierade modulen med 'Kräv'
Funktionen 'require' är ett annat sätt att importera modulerna i Perl-skriptet och det visas i det här exemplet. Den tidigare skapade 'Bonus'-modulen importeras till skriptet med hjälp av 'require'-funktionen. Värdena för lön och försäljningsbelopp tas från användaren i detta skript. Den andra delen av skriptet liknar det föregående exemplet.
#!/usr/bin/perlanvänd strikt ;
använda sig av varningar ;
använd 5.34.0 ;
kräver bonus ;
#Ta input från användaren
säga 'Ange anställds namn:' ;
chomp ( mitt $namn = <> ) ;
säga 'Ange lönen:' ;
chomp ( min $lön = <> ) ;
säga 'Ange försäljningsbeloppet:' ;
chomp ( mitt $sal_belopp = <> ) ;
#Call subrutin från modulen
min $bonus = Bonus::calculate_bonus ( $lön , $sal_amount ) ;
min $lön_med_bonus = $lön + $bonus ;
#Skriv ut personalinformationen baserat på försäljning
säga 'Anställda detaljer: \n ' ;
säga 'Namn: $name' ;
säga 'Lön: $lön' ;
säga 'Lön (med bonus): $lön_med_bonus' ;
Produktion:
Följande utdata visas efter exekvering av skriptet:
Slutsats
Användningen av både inbyggda och användardefinierade moduler i Perl visas i denna handledning med enkla exempel.