Różne przykłady modułów Perla
W tej części tutoriala przedstawiono metody wykorzystania wbudowanych modułów Perla oraz modułów zdefiniowanych przez użytkownika.
Przykład 1: Korzystanie z wbudowanego modułu
W tym przykładzie pokazane jest zastosowanie trzech wbudowanych modułów Perla. Są to „ścisłe”, „ostrzeżenia” i „5.34.0”. Moduł „ścisły” służy do włączania różnych typów ograniczeń podczas pisania skryptów Perla. Na przykład, nie można zadeklarować żadnej zmiennej bez słowa kluczowego „my”, jeśli ten moduł jest używany w skrypcie. Moduł „ostrzeżenia” służy do wyświetlania różnego rodzaju komunikatów ostrzegawczych po wykonaniu skryptu, który pomaga koderowi zrozumieć błąd. Moduł „5.34.0” służy do korzystania z różnych funkcji tego modułu w skrypcie. Funkcja „powiedz” używana do drukowania wiadomości ze znakiem nowej linii jest cechą tego modułu.
#!/usr/bin/perl
#Włącz ograniczenie kodowania
użyj ścisłego ;
#Wyświetl komunikat ostrzegawczy dotyczący błędu
używać ostrzeżenia ;
#Włącz różne usługi
użyj wersji 5.34.0 ;
#Użycie słowa kluczowego „my” jest obowiązkowe w przypadku modułu „strict”.
mój $język = „Perła” ;
#Włącz możliwość korzystania z funkcji „powiedz”.
mowić „Naucz się programowania w języku $.” ;
Wyjście:
Po wykonaniu skryptu pojawiają się następujące dane wyjściowe:
Przykład 2: Korzystanie z modułu zdefiniowanego przez użytkownika
Użytkownicy Perla mogą stworzyć swój moduł w określonym celu, tworząc plik z rozszerzeniem „.pm”. W tym przykładzie tworzony jest moduł zdefiniowany przez użytkownika i używany w innym skrypcie Perla za pomocą słowa kluczowego „use”.
Utwórz moduł zdefiniowany przez użytkownika:
Utwórz plik o nazwie „Bonus.pm” za pomocą następującego skryptu. Tutaj słowo kluczowe „pakiet” służy do zdefiniowania, że jest to moduł. Moduł ten zawiera podprogram wyliczający premię pracownika na podstawie wynagrodzenia oraz kwoty sprzedaży. Ze skryptu Perla, w którym używany jest ten moduł, przekazywane są dwie wartości argumentów. Pierwszy argument zawiera wynagrodzenie, drugi argument zawiera kwotę sprzedaży. Premia wynosi 15% kwoty sprzedaży, jeśli wynagrodzenie przekracza 10000. Premia wynosi 10% kwoty sprzedaży, jeśli wynagrodzenie przekracza 7000. Premia wynosi 5% kwoty sprzedaży, jeśli wynagrodzenie jest mniejsze niż 10000 „1;” jest używany na końcu modułu w celu zwrócenia wartości true. W przeciwnym razie drukowany jest błąd.
Bonus.pm
#!/usr/bin/perlużyj ścisłego ;
używać ostrzeżenia ;
użyj wersji 5.34.0 ;
Pakiet bonusowy ;
#Zadeklaruj podprogram do obliczenia premii
sub oblicz_bonus
{
# Zainicjuj zmienne
moja pensja = $_ [ 0 ] ;
moja kwota_sprzedaży $ = $_ [ 1 ] ;
mój $bonus = 0,0 ;
#Oblicz premię
Jeśli ( $wynagrodzenie > 10000 )
{
$premii = $kwota_sprzedaży* 0,15 ;
}
elsif ( $wynagrodzenie > 7000 )
{
$premii = $kwota_sprzedaży* 0,10 ;
}
w przeciwnym razie
{
$premii = $kwota_sprzedaży* 0,05 ;
}
#Zwróć obliczony bonus
powrót $premii ;
}
1 ;
Zaimportuj moduł w skrypcie Perla:
Utwórz plik Perla za pomocą poniższego skryptu, który zaimportuje utworzony wcześniej moduł „Bonus” w celu obliczenia kwoty premii pracownika na podstawie przypisanej w skrypcie kwoty wynagrodzenia i sprzedaży.
#!/usr/bin/perlużyj ścisłego ;
używać ostrzeżenia ;
użyj wersji 5.34.0 ;
skorzystaj z Bonusu ;
#Zainicjuj zmienne
moje $imię = „Mir Sabbir” ;
moja pensja = 60000 ;
moja kwota_salu $ = 9700 ;
#Wywołaj podprogram z modułu
mój $bonus = Bonus::oblicz_bonus ( $wynagrodzenie , $sal_kwota ) ;
moja pensja $z_premią = $wynagrodzenie + $premia ;
#Wydrukuj informacje o pracownikach na podstawie sprzedaży
mowić „Dane pracownika: \N ' ;
mowić „Nazwa: $nazwa” ;
mowić „Wynagrodzenie: $wynagrodzenie” ;
mowić „Wynagrodzenie (z premią): $ wynagrodzenie_z_bonusem” ;
Wyjście:
Po wykonaniu skryptu pojawiają się następujące dane wyjściowe. Tutaj „-ja”. należy użyć opcji w czasie wykonywania skryptu, aby znaleźć zaimportowany moduł zdefiniowany przez użytkownika:
Przykład 3: Korzystanie z modułu zdefiniowanego przez użytkownika przy użyciu opcji „Wymagaj”
Funkcja „require” to kolejny sposób importowania modułów do skryptu Perla i została pokazana w tym przykładzie. Utworzony wcześniej moduł „Bonus” importujemy do skryptu za pomocą funkcji „wymagaj”. W tym skrypcie wartości wynagrodzenia i kwoty sprzedaży są pobierane od użytkownika. Pozostała część skryptu jest podobna do poprzedniego przykładu.
#!/usr/bin/perlużyj ścisłego ;
używać ostrzeżenia ;
użyj wersji 5.34.0 ;
wymagają bonusu ;
#Pobierz dane od użytkownika
mowić „Wpisz nazwisko pracownika:” ;
przegryźć ( moje $imię = <> ) ;
mowić „Wpisz wynagrodzenie:” ;
przegryźć ( moja pensja = <> ) ;
mowić „Wprowadź kwotę sprzedaży:” ;
przegryźć ( moja kwota_salu $ = <> ) ;
#Wywołaj podprogram z modułu
mój $bonus = Bonus::oblicz_bonus ( $wynagrodzenie , $sal_kwota ) ;
moja pensja $z_premią = $wynagrodzenie + $premia ;
#Wydrukuj informacje o pracownikach na podstawie sprzedaży
mowić „Dane pracownika: \N ' ;
mowić „Nazwa: $nazwa” ;
mowić „Wynagrodzenie: $wynagrodzenie” ;
mowić „Wynagrodzenie (z premią): $ wynagrodzenie_z_bonusem” ;
Wyjście:
Po wykonaniu skryptu pojawiają się następujące dane wyjściowe:
Wniosek
W tym samouczku zaprezentowano zastosowania zarówno wbudowanych, jak i zdefiniowanych przez użytkownika modułów w Perlu na prostych przykładach.