Forskellige eksempler på Perl-moduler
Metoderne til at bruge de indbyggede Perl-moduler og brugerdefinerede moduler er vist i denne del af selvstudiet.
Eksempel 1: Brug af det indbyggede modul
I dette eksempel er brugen af tre indbyggede moduler af Perl vist. Disse er 'strenge', 'advarsler' og '5.34.0'. Det 'strenge' modul bruges til at gøre det muligt for de forskellige typer begrænsninger at skrive Perl-scripts. For eksempel kan ingen variabel erklæres uden 'mit' nøgleordet, hvis dette modul bruges i scriptet. 'Advarsler'-modulet bruges til at vise de forskellige typer advarselsmeddelelser efter at have udført scriptet, der hjælper koderen med at forstå fejlen. '5.34.0'-modulet bruges til at bruge de forskellige funktioner i dette modul i scriptet. 'Sig'-funktionen, der bruges til at udskrive beskederne med ny linje, er funktionen i dette modul.
#!/usr/bin/perl
#Aktiver begrænsning for kodning
brug streng ;
#Vis advarselsmeddelelse for fejl
brug advarsler ;
#Aktiver forskellige tjenester
brug 5.34.0 ;
#Brug af 'mit' søgeord er obligatorisk for 'strengt' modul
mit $sprog = 'Perl' ;
#Aktiver brugen af 'say'-funktionen
sige 'Lær $language programmering.' ;
Produktion:
Følgende output vises efter eksekvering af scriptet:
Eksempel 2: Brug af det brugerdefinerede modul
Perl-brugerne kan oprette deres modul til et bestemt formål ved at oprette en fil med filtypen '.pm'. I dette eksempel oprettes et brugerdefineret modul, og det bruges i et andet Perl-script ved hjælp af nøgleordet 'brug'.
Opret et brugerdefineret modul:
Opret en fil med navnet 'Bonus.pm' med følgende script. Her bruges nøgleordet 'pakke' til at definere, at det er et modul. Dette modul indeholder en underrutine, der beregner en medarbejders bonus baseret på lønnen og salgssummen. To argumentværdier sendes fra Perl-scriptet, hvor dette modul bruges. Det første argument indeholder lønnen, og det andet argument indeholder salgssummen. Bonussen er 15% af salgssummen, hvis lønnen er mere end 10000. Bonussen er 10% af salgssummen, hvis lønnen er mere end 7000. Bonussen er 5% af salgssummen, hvis lønnen er mindre end 10000 '1;' bruges i slutningen af modulet til at returnere sand. Ellers udskrives en fejl.
Bonus.pm
#!/usr/bin/perlbrug streng ;
brug advarsler ;
brug 5.34.0 ;
pakke bonus ;
#Erklærer subrutine for at beregne bonus
sub calculate_bonus
{
# Initialiser variablerne
min $løn = $_ [ 0 ] ;
mit $salgs_beløb = $_ [ 1 ] ;
min $bonus = 0,0 ;
#Beregn bonus
hvis ( $ løn > 10.000 )
{
$ bonus = $sales_amount* 0,15 ;
}
elsif ( $ løn > 7000 )
{
$ bonus = $sales_amount* 0,10 ;
}
andet
{
$ bonus = $sales_amount* 0,05 ;
}
#Returnering af den beregnede bonus
Vend tilbage $ bonus ;
}
1 ;
Importer et modul i et Perl-script:
Opret en Perl-fil med følgende script, der importerer 'Bonus'-modulet, der er oprettet tidligere for at beregne bonusbeløbet for en medarbejder baseret på løn- og salgsbeløbet, der er tildelt i scriptet.
#!/usr/bin/perlbrug strenge ;
brug advarsler ;
brug 5.34.0 ;
brug Bonus ;
#Initialiser variabler
mit $navn = 'Mir Sabbir' ;
min $løn = 60.000 ;
mit $sal_beløb = 9700 ;
#Call subrutine fra modulet
min $bonus = Bonus::beregn_bonus ( $ løn , $sal_beløb ) ;
min $løn_med_bonus = $løn + $bonus ;
#Udskriv medarbejderoplysningerne baseret på salg
sige 'Medarbejderoplysninger: \n ' ;
sige 'Navn: $navn' ;
sige 'Løn: $løn' ;
sige 'Løn (med bonus): $salary_with_bonus' ;
Produktion:
Følgende output vises efter eksekvering af scriptet. Her er '-jeg'. mulighed skal bruges på tidspunktet for udførelse af scriptet for at finde ud af det brugerdefinerede importerede modul:
Eksempel 3: Brug af det brugerdefinerede modul ved brug af 'Kræv'
Funktionen 'kræver' er en anden måde at importere modulerne i Perl-scriptet på, og den er vist i dette eksempel. Det tidligere oprettede 'Bonus'-modul importeres til scriptet ved hjælp af 'kræver'-funktionen. Værdierne for løn og salgsbeløb er taget fra brugeren i dette script. Den anden del af scriptet ligner det forrige eksempel.
#!/usr/bin/perlbrug strenge ;
brug advarsler ;
brug 5.34.0 ;
kræver bonus ;
#Tag input fra brugeren
sige 'Indtast medarbejdernavnet:' ;
chomp ( mit $navn = <> ) ;
sige 'Indtast lønnen:' ;
chomp ( min $løn = <> ) ;
sige 'Indtast salgsbeløbet:' ;
chomp ( mit $sal_beløb = <> ) ;
#Call subrutine fra modulet
min $bonus = Bonus::beregn_bonus ( $ løn , $sal_beløb ) ;
min $løn_med_bonus = $løn + $bonus ;
#Udskriv medarbejderoplysningerne baseret på salg
sige 'Medarbejderoplysninger: \n ' ;
sige 'Navn: $navn' ;
sige 'Løn: $løn' ;
sige 'Løn (med bonus): $salary_with_bonus' ;
Produktion:
Følgende output vises efter eksekvering af scriptet:
Konklusion
Brugen af både indbyggede og brugerdefinerede moduler i Perl er vist i denne vejledning ved hjælp af enkle eksempler.