Различные примеры модулей Perl
В этой части руководства показаны методы использования встроенных модулей Perl и пользовательских модулей.
Пример 1: Использование встроенного модуля
В этом примере показано использование трех встроенных модулей Perl. Это «строгие», «предупреждения» и «5.34.0». Модуль «строго» используется для включения различных типов ограничений при написании сценариев Perl. Например, ни одна переменная не может быть объявлена без ключевого слова «my», если в скрипте используется этот модуль. Модуль «Предупреждения» используется для отображения различных типов предупреждающих сообщений после выполнения сценария, которые помогают программисту понять ошибку. Модуль «5.34.0» используется для использования в скрипте различных функций этого модуля. Особенностью этого модуля является функция «say», которая используется для печати сообщений с символом новой строки.
#!/usr/bin/perl
#Включаем ограничение на кодирование
используйте строгий ;
#Показать предупреждающее сообщение об ошибке
использовать предупреждения ;
#Включить разные сервисы
используйте 5.34.0 ;
#Использование ключевого слова «мой» является обязательным для «строгого» модуля.
мой $язык '=' «Перл» ;
#Включить использование функции «сказать»
сказать «Изучите языковое программирование». ;
Выход:
После выполнения скрипта появится следующий вывод:
Пример 2: Использование пользовательского модуля
Пользователи Perl могут создать свой модуль для определенной цели, создав файл с расширением «.pm». В этом примере создается пользовательский модуль, который используется в другом скрипте Perl с использованием ключевого слова «use».
Создайте пользовательский модуль:
Создайте файл с именем «Bonus.pm» с помощью следующего скрипта. Здесь ключевое слово «пакет» используется для определения того, что это модуль. Этот модуль содержит подпрограмму, которая рассчитывает бонус сотрудника на основе зарплаты и объема продаж. Два значения аргумента передаются из сценария Perl, в котором используется этот модуль. Первый аргумент содержит зарплату, а второй аргумент — сумму продаж. Бонус составляет 15% от суммы продаж, если зарплата больше 10000. Бонус составляет 10% от суммы продаж, если зарплата больше 7000. Бонус составляет 5% от суммы продаж, если зарплата меньше 10000. , «1;» используется в конце модуля для возврата истины. В противном случае выводится ошибка.
Bonus.pm
#!/usr/bin/perlиспользуйте строгий ;
использовать предупреждения ;
используйте 5.34.0 ;
пакет Бонус ;
#Объявляем подпрограмму для расчета бонуса
суб-расчет_бонус
{
# Инициализируем переменные
моя зарплата '=' $_ [ 0 ] ;
моя сумма $sales_amount '=' $_ [ 1 ] ;
мой бонус в долларах '=' 0,0 ;
#Рассчитать бонус
если ( $зарплата > 10000 )
{
$бонус '=' $sales_amount* 0,15 ;
}
Элсиф ( $зарплата > 7000 )
{
$бонус '=' $sales_amount* 0,10 ;
}
еще
{
$бонус '=' $sales_amount* 0,05 ;
}
#Вернем рассчитанный бонус
возвращаться $бонус ;
}
1 ;
Импортируйте модуль в Perl-скрипт:
Создайте файл Perl с помощью следующего сценария, который импортирует модуль «Бонус», созданный ранее для расчета суммы бонуса сотрудника на основе зарплаты и суммы продаж, назначенных в сценарии.
#!/usr/bin/perlиспользуйте строгий ;
использовать предупреждения ;
используйте 5.34.0 ;
использовать бонус ;
#Инициализируем переменные
мое $имя '=' «Мир Саббир» ;
моя зарплата '=' 60000 ;
моя $sal_amount '=' 9700 ;
#Вызов подпрограммы из модуля
мой бонус в долларах '=' Бонус::calculate_bonus ( $зарплата , $sal_amount ) ;
моя $salary_with_bonus '=' $зарплата + $бонус ;
#Печать информации о сотрудниках на основе продаж
сказать «Информация о сотруднике: \п ' ;
сказать 'Имя: $имя' ;
сказать «Заработная плата: $зарплата» ;
сказать «Заработная плата (с бонусом): $salary_with_bonus» ;
Выход:
Следующий вывод появляется после выполнения сценария. Здесь «-Я». Эту опцию необходимо использовать во время выполнения скрипта, чтобы определить пользовательский импортированный модуль:
Пример 3. Использование пользовательского модуля с использованием «Require»
Функция «require» — это еще один способ импорта модулей в сценарий Perl, и он показан в этом примере. Созданный ранее модуль «Бонус» импортируется в скрипт с помощью функции «require». Значения зарплаты и суммы продаж в этом скрипте берутся у пользователя. Другая часть скрипта аналогична предыдущему примеру.
#!/usr/bin/perlиспользуйте строгий ;
использовать предупреждения ;
используйте 5.34.0 ;
требуется бонус ;
#Получаем данные от пользователя
сказать «Введите имя сотрудника:» ;
чавкать ( мое $имя '=' <> ) ;
сказать «Введите зарплату:» ;
чавкать ( моя зарплата '=' <> ) ;
сказать «Введите сумму продажи:» ;
чавкать ( моя $sal_amount '=' <> ) ;
#Вызов подпрограммы из модуля
мой бонус в долларах '=' Бонус::calculate_bonus ( $зарплата , $sal_amount ) ;
моя $salary_with_bonus '=' $зарплата + $бонус ;
#Печать информации о сотрудниках на основе продаж
сказать «Информация о сотруднике: \п ' ;
сказать 'Имя: $имя' ;
сказать «Заработная плата: $зарплата» ;
сказать «Заработная плата (с бонусом): $salary_with_bonus» ;
Выход:
После выполнения скрипта появится следующий вывод:
Заключение
В этом руководстве на простых примерах показано использование как встроенных, так и пользовательских модулей в Perl.