Iba't ibang Halimbawa ng Perl Module
Ang mga paraan ng paggamit ng mga built-in na Perl module at user-defined module ay ipinapakita sa bahaging ito ng tutorial.
Halimbawa 1: Paggamit ng Built-In Module
Sa halimbawang ito, ipinapakita ang mga paggamit ng tatlong built-in na module ng Perl. Ito ay 'mahigpit', 'mga babala', at '5.34.0'. Ang 'mahigpit' na module ay ginagamit upang paganahin ang iba't ibang uri ng mga paghihigpit na isulat ang mga script ng Perl. Halimbawa, walang variable na maaaring ideklara nang walang 'aking' keyword kung ang module na ito ay ginamit sa script. Ang module na 'mga babala' ay ginagamit upang ipakita ang iba't ibang uri ng mga mensahe ng babala pagkatapos isagawa ang script na tumutulong sa coder na maunawaan ang error. Ang '5.34.0' module ay ginagamit upang gamitin ang iba't ibang mga tampok ng module na ito sa script. Ang function na 'sabihin' na ginagamit upang i-print ang mga mensahe gamit ang bagong linya ay ang tampok ng modyul na ito.
#!/usr/bin/perl
#Paganahin ang paghihigpit para sa coding
gumamit ng mahigpit ;
#Display warning message para sa error
gamitin mga babala ;
#Paganahin ang iba't ibang serbisyo
gamitin ang 5.34.0 ;
Ang #Paggamit ng 'aking' keyword ay sapilitan para sa 'mahigpit' na module
aking $wika = 'Perl' ;
#Paganahin ang paggamit ng tampok na 'sabihin'
sabihin 'Matuto ng $linguage programming.' ;
Output:
Ang sumusunod na output ay lilitaw pagkatapos isagawa ang script:
Halimbawa 2: Paggamit ng User-Defined Module
Ang mga gumagamit ng Perl ay maaaring lumikha ng kanilang module para sa isang partikular na layunin sa pamamagitan ng paglikha ng isang file na may extension na '.pm'. Sa halimbawang ito, nilikha ang isang module na tinukoy ng gumagamit at ginagamit ito sa isa pang Perl script gamit ang keyword na 'gamitin'.
Lumikha ng Module na Tinukoy ng Gumagamit:
Gumawa ng file na pinangalanang 'Bonus.pm' na may sumusunod na script. Dito, ginagamit ang keyword na 'package' upang tukuyin na ito ay isang module. Ang module na ito ay naglalaman ng subroutine na kinakalkula ang bonus ng isang empleyado batay sa suweldo at halaga ng mga benta. Dalawang value ng argument ang ipinasa mula sa Perl script kung saan ginagamit ang module na ito. Ang unang argumento ay naglalaman ng suweldo at ang pangalawang argumento ay naglalaman ng halaga ng benta. Ang bonus ay 15% ng halaga ng benta kung ang suweldo ay higit sa 10000. Ang bonus ay 10% ng halaga ng benta kung ang suweldo ay higit sa 7000. Ang bonus ay 5% ng halaga ng benta kung ang suweldo ay mas mababa sa 10000 Ang '1;' ay ginagamit sa dulo ng module upang ibalik ang true. Kung hindi, may na-print na error.
Bonus.pm
#!/usr/bin/perlgumamit ng mahigpit ;
gamitin mga babala ;
gamitin ang 5.34.0 ;
Package Bonus ;
#Declare subroutine para kalkulahin ang bonus
sub kalkulahin_bonus
{
# Simulan ang mga variable
ang $suweldo ko = $_ [ 0 ] ;
ang aking $sales_amount = $_ [ 1 ] ;
ang aking $bonus = 0.0 ;
#Kalkulahin ang bonus
kung ( $salary > 10000 )
{
$bonus = $sales_amount* 0.15 ;
}
elsif ( $salary > 7000 )
{
$bonus = $sales_amount* 0.10 ;
}
iba pa
{
$bonus = $sales_amount* 0.05 ;
}
#Ibalik ang nakalkulang bonus
bumalik $bonus ;
}
1 ;
Mag-import ng Module sa isang Perl Script:
Gumawa ng Perl file na may sumusunod na script na nag-i-import ng 'Bonus' na module na ginawa nang mas maaga upang kalkulahin ang halaga ng bonus ng isang empleyado batay sa suweldo at halaga ng benta na itinalaga sa script.
#!/usr/bin/perlgumamit ng mahigpit ;
gamitin mga babala ;
gamitin ang 5.34.0 ;
gumamit ng Bonus ;
#Initialize ang mga variable
ang aking $pangalan = 'Mir Sabbir' ;
ang $suweldo ko = 60000 ;
ang $sal_amount ko = 9700 ;
#Call subroutine mula sa module
ang aking $bonus = Bonus::calculate_bonus ( $salary , $sal_amount ) ;
ang aking $salary_with_bonus = $salary + $bonus ;
#Print ang impormasyon ng empleyado batay sa mga benta
sabihin 'Mga Detalye ng Empleyado: \n ' ;
sabihin 'Pangalan: $name' ;
sabihin 'Suweldo: $salary' ;
sabihin 'Sahod(may bonus): $salary_with_bonus' ;
Output:
Ang sumusunod na output ay lilitaw pagkatapos isagawa ang script. Dito, ang '-ako.' ang opsyon ay kailangang gamitin sa oras ng pagpapatupad ng script upang malaman ang na-import na module na tinukoy ng gumagamit:
Halimbawa 3: Paggamit ng Module na Tinukoy ng Gumagamit Gamit ang 'Kailangan'
Ang function na 'kailangan' ay isa pang paraan ng pag-import ng mga module sa Perl script at ito ay ipinapakita sa halimbawang ito. Ang dating ginawang 'Bonus' na module ay ini-import sa script gamit ang 'require' function. Ang mga halaga ng suweldo at benta ay kinuha mula sa gumagamit sa script na ito. Ang iba pang bahagi ng script ay katulad ng nakaraang halimbawa.
#!/usr/bin/perlgumamit ng mahigpit ;
gamitin mga babala ;
gamitin ang 5.34.0 ;
nangangailangan ng Bonus ;
#Kumuha ng input mula sa gumagamit
sabihin 'Ilagay ang pangalan ng empleyado:' ;
chomp ( ang aking $pangalan = <> ) ;
sabihin 'Ipasok ang suweldo:' ;
chomp ( ang $suweldo ko = <> ) ;
sabihin 'Ilagay ang halaga ng benta:' ;
chomp ( ang $sal_amount ko = <> ) ;
#Call subroutine mula sa module
ang aking $bonus = Bonus::calculate_bonus ( $salary , $sal_amount ) ;
ang aking $salary_with_bonus = $salary + $bonus ;
#Print ang impormasyon ng empleyado batay sa mga benta
sabihin 'Mga Detalye ng Empleyado: \n ' ;
sabihin 'Pangalan: $name' ;
sabihin 'Suweldo: $salary' ;
sabihin 'Sahod(may bonus): $salary_with_bonus' ;
Output:
Lumilitaw ang sumusunod na output pagkatapos isagawa ang script:
Konklusyon
Ang paggamit ng parehong built-in at user-defined na mga module sa Perl ay ipinapakita sa tutorial na ito gamit ang mga simpleng halimbawa.