Различити примери Перл модула
Методе коришћења уграђених Перл модула и кориснички дефинисаних модула приказани су у овом делу упутства.
Пример 1: Коришћење уграђеног модула
У овом примеру су приказана употреба три уграђена модула Перл-а. То су „строги“, „упозорења“ и „5.34.0“. Модул „строги“ се користи да омогући различите врсте ограничења за писање Перл скрипти. На пример, ниједна променљива се не може декларисати без кључне речи „мој“ ако се овај модул користи у скрипти. Модул „упозорења“ се користи за приказ различитих типова порука упозорења након извршавања скрипте која помаже кодеру да разуме грешку. Модул „5.34.0“ се користи за коришћење различитих карактеристика овог модула у скрипти. Функција „саи“ која се користи за штампање порука са новим редом је карактеристика овог модула.
#!/уср/бин/перл
#Омогући ограничење за кодирање
користити строге ;
#Прикажи поруку упозорења за грешку
користити упозорења ;
#Омогући различите услуге
користите 5.34.0 ;
#Употреба кључне речи 'мој' је обавезна за 'строги' модул
мој $језик = 'Перл' ;
#Омогућите употребу функције 'реци'
рецимо „Научите програмирање $лангуаге.“ ;
Излаз:
Следећи излаз се појављује након извршавања скрипте:
Пример 2: Коришћење кориснички дефинисаног модула
Корисници Перл-а могу креирати свој модул за одређену сврху тако што ће креирати датотеку са екстензијом “.пм”. У овом примеру, креиран је кориснички дефинисан модул који се користи у другој Перл скрипти користећи кључну реч „усе“.
Креирајте кориснички дефинисани модул:
Направите датотеку под називом „Бонус.пм“ са следећом скриптом. Овде се кључна реч „пакет“ користи да дефинише да је то модул. Овај модул садржи потпрограм који обрачунава бонус запосленог на основу плате и износа продаје. Две вредности аргумената се прослеђују из Перл скрипте у којој се користи овај модул. Први аргумент садржи плату, а други аргумент садржи износ продаје. Бонус је 15% од износа продаје ако је плата већа од 10000. Бонус је 10% од износа продаје ако је плата већа од 7000. Бонус износи 5% од износа продаје ако је плата мања од 10000 . „1;“ се користи на крају модула да врати труе. У супротном, исписује се грешка.
Бонус.пм
#!/уср/бин/перлкористити строге ;
користити упозорења ;
користите 5.34.0 ;
пакет Бонус ;
#Децларе потпрограм за израчунавање бонуса
суб израчунати_бонус
{
# Иницијализујте променљиве
моја плата = $_ [ 0 ] ;
мој $салес_амоунт = $_ [ 1 ] ;
мој бонус од долара = 0.0 ;
#Израчунај бонус
ако ( $плата > 10000 )
{
$бонус = $салес_амоунт* 0.15 ;
}
елсиф ( $плата > 7000 )
{
$бонус = $салес_амоунт* 0.10 ;
}
друго
{
$бонус = $салес_амоунт* 0.05 ;
}
#Врати израчунати бонус
повратак $бонус ;
}
1 ;
Увезите модул у Перл скрипту:
Направите Перл датотеку са следећом скриптом која увози модул „Бонус“ који је креиран раније да бисте израчунали износ бонуса запосленог на основу плате и износа продаје који су додељени у скрипти.
#!/уср/бин/перлкористити строге ;
користити упозорења ;
користите 5.34.0 ;
користите бонус ;
#Иницијализујте променљиве
моје $наме = 'Мир Саббир' ;
моја плата = 60000 ;
мој $сал_амоунт = 9700 ;
#Позови потпрограм из модула
мој бонус од долара = Бонус::цалцулате_бонус ( $плата , $сал_амоунт ) ;
мој $салари_витх_бонус = $плата + $бонус ;
#Одштампајте информације о запосленима на основу продаје
рецимо „Детаљи о запосленима: \н ' ;
рецимо „Име: $наме“ ;
рецимо 'Плата: $плата' ;
рецимо 'Плата (са бонусом): $салари_витх_бонус' ;
Излаз:
Следећи излаз се појављује након извршавања скрипте. Овде, „-ја“. опција мора да се користи у време извршавања скрипте да би се сазнао кориснички дефинисан увезени модул:
Пример 3: Коришћење кориснички дефинисаног модула коришћењем „Рекуире“
Функција „рекуире“ је још један начин увоза модула у Перл скрипту и приказана је у овом примеру. Претходно креирани модул „Бонус“ се увози у скрипту помоћу функције „рекуире“. Вредности плате и износа продаје су преузете од корисника у овој скрипти. Други део скрипте је сличан претходном примеру.
#!/уср/бин/перлкористити строге ;
користити упозорења ;
користите 5.34.0 ;
захтевају бонус ;
#Узми податке од корисника
рецимо „Унесите име запосленог:“ ;
цхомп ( моје $наме = <> ) ;
рецимо „Унесите плату:“ ;
цхомп ( моја плата = <> ) ;
рецимо „Унесите износ продаје:“ ;
цхомп ( мој $сал_амоунт = <> ) ;
#Позови потпрограм из модула
мој бонус од долара = Бонус::цалцулате_бонус ( $плата , $сал_амоунт ) ;
мој $салари_витх_бонус = $плата + $бонус ;
#Одштампајте информације о запосленима на основу продаје
рецимо „Детаљи о запосленима: \н ' ;
рецимо „Име: $наме“ ;
рецимо 'Плата: $плата' ;
рецимо 'Плата (са бонусом): $салари_витх_бонус' ;
Излаз:
Следећи излаз се појављује након извршавања скрипте:
Закључак
Употреба уграђених и кориснички дефинисаних модула у Перлу приказана је у овом туторијалу на једноставним примерима.