Diferents exemples de mòduls Perl
Els mètodes per utilitzar els mòduls Perl integrats i els mòduls definits per l'usuari es mostren en aquesta part del tutorial.
Exemple 1: Ús del mòdul integrat
En aquest exemple, es mostren els usos de tres mòduls integrats de Perl. Aquests són 'estrictes', 'advertiments' i '5.34.0'. El mòdul 'estricte' s'utilitza per habilitar els diferents tipus de restriccions per escriure els scripts Perl. Per exemple, no es pot declarar cap variable sense la paraula clau 'la meva' si aquest mòdul s'utilitza a l'script. El mòdul 'advertències' s'utilitza per mostrar els diferents tipus de missatges d'advertència després d'executar l'script que ajuda el programador a comprendre l'error. El mòdul '5.34.0' s'utilitza per utilitzar les diferents característiques d'aquest mòdul a l'script. La funció 'dir' que s'utilitza per imprimir els missatges amb nova línia és la característica d'aquest mòdul.
#!/usr/bin/perl
#Activa la restricció per a la codificació
ús estricte ;
#Mostra un missatge d'advertència per error
utilitzar avisos ;
#Habilita diferents serveis
utilitzar 5.34.0 ;
#L'ús de la paraula clau 'la meva' és obligatori per al mòdul 'estricte'.
el meu $idioma = 'Perl' ;
#Activeu l'ús de la funció 'dir'.
dir 'Aprèn a programar $language'. ;
Sortida:
La sortida següent apareix després d'executar l'script:
Exemple 2: Ús del mòdul definit per l'usuari
Els usuaris de Perl poden crear el seu mòdul per a un propòsit particular creant un fitxer amb l'extensió “.pm”. En aquest exemple, es crea un mòdul definit per l'usuari i s'utilitza en un altre script Perl utilitzant la paraula clau 'use'.
Creeu un mòdul definit per l'usuari:
Creeu un fitxer anomenat 'Bonus.pm' amb el següent script. Aquí, la paraula clau 'paquet' s'utilitza per definir que és un mòdul. Aquest mòdul conté una subrutina que calcula la bonificació d'un empleat en funció del salari i l'import de les vendes. Es passen dos valors d'argument des de l'script Perl en què s'utilitza aquest mòdul. El primer argument conté el salari i el segon argument conté l'import de les vendes. La bonificació és del 15% de l'import de les vendes si el sou és superior a 10.000. La bonificació és del 10% de l'import de les vendes si el sou és superior a 7.000. La bonificació és del 5% de l'import de les vendes si el sou és inferior a 10.000. . L''1;' s'utilitza al final del mòdul per retornar true. En cas contrari, s'imprimeix un error.
Bonus.pm
#!/usr/bin/perlús estricte ;
utilitzar avisos ;
utilitzar 5.34.0 ;
paquet de bonificació ;
#Declarar la subrutina per calcular la bonificació
sub calcular_bonus
{
# Inicialitzar les variables
el meu $sou = $_ [ 0 ] ;
el meu $sales_amount = $_ [ 1 ] ;
el meu bo de $ = 0.0 ;
#Calcula la bonificació
si ( $salari > 10000 )
{
$ de bonificació = $sales_amount* 0.15 ;
}
elsif ( $salari > 7000 )
{
$ de bonificació = $sales_amount* 0.10 ;
}
altra cosa
{
$ de bonificació = $sales_amount* 0.05 ;
}
#Retorna la bonificació calculada
tornar $ de bonificació ;
}
1 ;
Importa un mòdul en un script Perl:
Creeu un fitxer Perl amb l'script següent que importi el mòdul 'Bonus' que s'ha creat anteriorment per calcular l'import de la bonificació d'un empleat en funció del salari i l'import de les vendes assignats a l'script.
#!/usr/bin/perlús estricte ;
utilitzar avisos ;
utilitzar 5.34.0 ;
utilitzar Bonus ;
#Inicialitza variables
el meu $nom = 'Mir Sabbir' ;
el meu $sou = 60000 ;
el meu $sal_amount = 9700 ;
#Call subrutina des del mòdul
el meu bo de $ = Bonus::calcular_bonus ( $salari , $sal_amount ) ;
el meu $salary_with_bonus = $ salari + $ bonificació ;
#Imprimeix la informació de l'empleat en funció de les vendes
dir 'Detalls de l'empleat: \n ' ;
dir 'Nom: $name' ;
dir 'Salari: $salari' ;
dir 'Salari (amb bonificació): $salary_with_bonus' ;
Sortida:
La sortida següent apareix després d'executar l'script. Aquí, el '-jo'. s'ha d'utilitzar l'opció en el moment d'executar l'script per esbrinar el mòdul importat definit per l'usuari:
Exemple 3: ús del mòdul definit per l'usuari amb 'Requerir'
La funció 'requerir' és una altra manera d'importar els mòduls a l'script Perl i es mostra en aquest exemple. El mòdul 'Bonus' creat anteriorment s'importa a l'script mitjançant la funció 'requerir'. Els valors del salari i l'import de les vendes es prenen de l'usuari en aquest script. L'altra part del guió és similar a l'exemple anterior.
#!/usr/bin/perlús estricte ;
utilitzar avisos ;
utilitzar 5.34.0 ;
requereix Bonus ;
#Recol l'entrada de l'usuari
dir 'Introduïu el nom de l'empleat:' ;
picar ( el meu $nom = <> ) ;
dir 'Introduïu el sou:' ;
picar ( el meu $sou = <> ) ;
dir 'Introduïu l'import de les vendes:' ;
picar ( el meu $sal_amount = <> ) ;
#Call subrutina des del mòdul
el meu bo de $ = Bonus::calcular_bonus ( $salari , $sal_amount ) ;
el meu $salary_with_bonus = $ salari + $ bonificació ;
#Imprimeix la informació de l'empleat en funció de les vendes
dir 'Detalls de l'empleat: \n ' ;
dir 'Nom: $name' ;
dir 'Salari: $salari' ;
dir 'Salari (amb bonificació): $salary_with_bonus' ;
Sortida:
La sortida següent apareix després d'executar l'script:
Conclusió
Els usos dels mòduls integrats i definits per l'usuari en Perl es mostren en aquest tutorial amb exemples senzills.