Különböző példák Perl modulokra
A beépített Perl modulok és a felhasználó által definiált modulok használatának módszereit az oktatóanyag ezen része mutatja be.
1. példa: A beépített modul használata
Ebben a példában a Perl három beépített moduljának használata látható. Ezek a „szigorú”, „figyelmeztetések” és „5.34.0”. A „strict” modul lehetővé teszi a Perl-szkriptek írásának különböző típusú korlátozásait. Például egyetlen változó sem deklarálható a „my” kulcsszó nélkül, ha ezt a modult használja a szkript. A „warnings” modul a különböző típusú figyelmeztető üzenetek megjelenítésére szolgál a szkript végrehajtása után, amely segít a kódolónak megérteni a hibát. Az „5.34.0” modul a modul különböző funkcióinak használatára szolgál a szkriptben. Ennek a modulnak a funkciója a „mond” funkció, amely az üzenetek újsorral történő nyomtatására szolgál.
#!/usr/bin/perl
#Kódolás korlátozásának engedélyezése
szigorúat használj ;
#Hiba figyelmeztető üzenet megjelenítése
használat figyelmeztetések ;
#Engedélyezze a különböző szolgáltatásokat
használd az 5.34.0-t ;
#A 'my' kulcsszó használata kötelező a 'strict' modulnál
az én $nyelvem = 'Perl' ;
#Engedélyezze a „mondás” funkció használatát
mond 'Tanuljon $nyelvi programozást.' ;
Kimenet:
A következő kimenet jelenik meg a szkript végrehajtása után:
2. példa: A felhasználó által definiált modul használata
A Perl-felhasználók egy „.pm” kiterjesztésű fájl létrehozásával létrehozhatják moduljukat egy adott célra. Ebben a példában egy felhasználó által definiált modul jön létre, és egy másik Perl-szkriptben a „use” kulcsszó használatával kerül felhasználásra.
Felhasználó által definiált modul létrehozása:
Hozzon létre egy „Bonus.pm” nevű fájlt a következő szkripttel. Itt a „csomag” kulcsszót használjuk annak meghatározására, hogy ez egy modul. Ez a modul tartalmaz egy alprogramot, amely a fizetés és az eladási összeg alapján kiszámítja a munkavállaló bónuszát. Két argumentumértéket ad át a Perl-szkript, amelyben ezt a modult használják. Az első argumentum a fizetést, a második pedig az eladási összeget tartalmazza. A bónusz az eladási összeg 15%-a, ha a fizetés több mint 10000. A bónusz az eladási összeg 10%-a, ha a fizetés meghaladja a 7000-et. A bónusz az eladási összeg 5%-a, ha a fizetés kevesebb, mint 10000 Az „1;” A modul végén a true értéket adja vissza. Ellenkező esetben hibaüzenet kerül kinyomtatásra.
Bónusz.pm
#!/usr/bin/perlszigorúat használj ;
használat figyelmeztetések ;
használd az 5.34.0-t ;
csomag bónusz ;
#Declare szubrutin a bónusz kiszámításához
alszámítási_bónusz
{
# Inicializálja a változókat
az én $fizetésem = $_ [ 0 ] ;
az eladási_összegem = $_ [ 1 ] ;
a $bónuszt = 0.0 ;
#Számolja ki a bónuszt
ha ( $ fizetés > 10000 )
{
$ bónusz = $eladási_összeg* 0,15 ;
}
elsif ( $ fizetés > 7000 )
{
$ bónusz = $eladási_összeg* 0.10 ;
}
más
{
$ bónusz = $eladási_összeg* 0,05 ;
}
#Vissza a kiszámított bónuszt
Visszatérés $ bónusz ;
}
1 ;
Modul importálása Perl szkriptbe:
Hozzon létre egy Perl-fájlt a következő szkripttel, amely importálja a korábban létrehozott „Bónusz” modult, hogy kiszámítsa egy alkalmazott bónuszösszegét a szkriptben hozzárendelt fizetés és eladási összeg alapján.
#!/usr/bin/perlszigorúat használj ;
használat figyelmeztetések ;
használd az 5.34.0-t ;
használd a bónuszt ;
#Inicializálja a változókat
a $nevem = 'Mir Sabbir' ;
az én $fizetésem = 60 000 ;
az én $sal_amountom = 9700 ;
#Subrutin hívása a modulból
a $bónuszt = Bónusz::calculate_bonus ( $ fizetés , $sal_amount ) ;
$fizetésem_bónusszal = $ fizetés + $ bónusz ;
#Nyomtassa ki az alkalmazottak adatait az eladások alapján
mond 'Alkalmazotti adatok: \n ' ;
mond 'Név: $név' ;
mond 'Bér: $ fizetés' ;
mond 'Bérezés (bónuszokkal): $fizetés_bónuszokkal' ;
Kimenet:
A következő kimenet jelenik meg a szkript végrehajtása után. Itt a „-én”. opciót kell használni a szkript futtatásakor, hogy megtudjuk a felhasználó által definiált importált modult:
3. példa: A felhasználó által definiált modul használata a „Követelmény” használatával
A „require” függvény egy másik módja a modulok importálásának a Perl-szkriptben, és ez látható ebben a példában. A korábban elkészített „Bónusz” modul a „require” funkció segítségével importálódik a szkriptbe. Ebben a szkriptben a fizetés és az eladási összeg értékeit a felhasználótól veszik. A szkript másik része hasonló az előző példához.
#!/usr/bin/perlszigorúat használj ;
használat figyelmeztetések ;
használd az 5.34.0-t ;
bónuszt igényel ;
#Vegyél be a felhasználótól
mond 'Adja meg az alkalmazott nevét:' ;
chomp ( a $nevem = <> ) ;
mond 'Adja meg a fizetést:' ;
chomp ( az én $fizetésem = <> ) ;
mond 'Adja meg az eladási összeget:' ;
chomp ( az én $sal_amountom = <> ) ;
#Subrutin hívása a modulból
a $bónuszt = Bónusz::calculate_bonus ( $ fizetés , $sal_amount ) ;
$fizetésem_bónusszal = $ fizetés + $ bónusz ;
#Nyomtassa ki az alkalmazottak adatait az eladások alapján
mond 'Alkalmazotti adatok: \n ' ;
mond 'Név: $név' ;
mond 'Bér: $ fizetés' ;
mond 'Bérezés (bónuszokkal): $fizetés_bónuszokkal' ;
Kimenet:
A következő kimenet jelenik meg a szkript végrehajtása után:
Következtetés
Ez az oktatóanyag egyszerű példákon keresztül bemutatja a beépített és a felhasználó által definiált modulok Perlben való felhasználását.