Diferentes ejemplos de módulos Perl
Los métodos para utilizar los módulos Perl integrados y los módulos definidos por el usuario se muestran en esta parte del tutorial.
Ejemplo 1: uso del módulo integrado
En este ejemplo, se muestran los usos de tres módulos integrados de Perl. Estas son 'estrictas', 'advertencias' y '5.34.0'. El módulo “estricto” se utiliza para habilitar los diferentes tipos de restricciones para escribir los scripts Perl. Por ejemplo, no se puede declarar ninguna variable sin la palabra clave 'mi' si este módulo se utiliza en el script. El módulo 'advertencias' se utiliza para mostrar los diferentes tipos de mensajes de advertencia después de ejecutar el script que ayuda al codificador a comprender el error. El módulo “5.34.0” se utiliza para utilizar las diferentes funciones de este módulo en el script. La función 'decir' que se utiliza para imprimir los mensajes con nueva línea es la característica de este módulo.
#!/usr/bin/perl
#Habilitar restricción para codificación
usar estricto ;
#Mostrar mensaje de advertencia de error
usar advertencias ;
#Habilitar diferentes servicios
utilizar 5.34.0 ;
#El uso de la palabra clave 'mi' es obligatorio para el módulo 'estricto'
mi $idioma = 'perla' ;
#Habilitar el uso de la función 'decir'
decir 'Aprende programación en $idiomas'. ;
Producción:
El siguiente resultado aparece después de ejecutar el script:
Ejemplo 2: uso del módulo definido por el usuario
Los usuarios de Perl pueden crear su módulo para un propósito particular creando un archivo con la extensión '.pm'. En este ejemplo, se crea un módulo definido por el usuario y se utiliza en otro script Perl utilizando la palabra clave 'use'.
Cree un módulo definido por el usuario:
Cree un archivo llamado 'Bonus.pm' con el siguiente script. Aquí, la palabra clave 'paquete' se utiliza para definir que es un módulo. Este módulo contiene una subrutina que calcula el bono de un empleado en función del salario y el monto de las ventas. Se pasan dos valores de argumento desde el script Perl en el que se utiliza este módulo. El primer argumento contiene el salario y el segundo argumento contiene el monto de las ventas. La bonificación es del 15% del monto de las ventas si el salario es superior a 10000. La bonificación es del 10% del monto de las ventas si el salario es superior a 7000. La bonificación es del 5% del monto de las ventas si el salario es inferior a 10000 .El “1;” se utiliza al final del módulo para devolver verdadero. De lo contrario, se imprime un error.
Bonus.pm
#!/usr/bin/perlusar estricto ;
usar advertencias ;
utilizar 5.34.0 ;
Bono de paquete ;
#Declarar subrutina para calcular el bono
subcalcular_bonificación
{
# Inicializar las variables
mi $salario = $_ [ 0 ] ;
mi $monto_ventas = $_ [ 1 ] ;
mi bono de $ = 0.0 ;
#Calcular bonificación
si ( $salario > 10000 )
{
$bono = $monto_ventas* 0.15 ;
}
elsi ( $salario > 7000 )
{
$bono = $monto_ventas* 0.10 ;
}
demás
{
$bono = $monto_ventas* 0.05 ;
}
#Devolver el bono calculado
devolver $bono ;
}
1 ;
Importar un módulo en un script Perl:
Cree un archivo Perl con el siguiente script que importe el módulo 'Bonus' que se creó anteriormente para calcular el monto del bono de un empleado en función del salario y el monto de las ventas asignados en el script.
#!/usr/bin/perlusar estricto ;
usar advertencias ;
utilizar 5.34.0 ;
utilizar bonificación ;
#Inicializar variables
mi $nombre = 'Mir Sabbir' ;
mi $salario = 60000 ;
mi $sal_amount = 9700 ;
#Llamar subrutina desde el módulo
mi bono de $ = Bonificación::calcular_bonificación ( $salario , $sal_cantidad ) ;
mi $salario_con_bonus = $salario + $bonus ;
#Imprimir la información del empleado según las ventas.
decir 'Detalles sobre empleados: \norte ' ;
decir 'Nombre: $nombre' ;
decir 'Salario: $salario' ;
decir 'Salario(con bonificación): $salario_con_bonificación' ;
Producción:
El siguiente resultado aparece después de ejecutar el script. Aquí, el '-yo'. La opción debe usarse al momento de ejecutar el script para conocer el módulo importado definido por el usuario:
Ejemplo 3: uso del módulo definido por el usuario usando 'Requerir'
La función 'requerir' es otra forma de importar los módulos en el script Perl y se muestra en este ejemplo. El módulo 'Bonus' creado previamente se importa al script mediante la función 'requerir'. Los valores de salario y monto de ventas se toman del usuario en este script. La otra parte del guión es similar al ejemplo anterior.
#!/usr/bin/perlusar estricto ;
usar advertencias ;
utilizar 5.34.0 ;
Requiere bonificación ;
#Recibir información del usuario
decir 'Ingrese el nombre del empleado:' ;
morder ( mi $nombre = <> ) ;
decir 'Ingrese el salario:' ;
morder ( mi $salario = <> ) ;
decir 'Ingrese el monto de las ventas:' ;
morder ( mi $sal_amount = <> ) ;
#Llamar subrutina desde el módulo
mi bono de $ = Bonificación::calcular_bonificación ( $salario , $sal_cantidad ) ;
mi $salario_con_bonus = $salario + $bonus ;
#Imprimir la información del empleado según las ventas.
decir 'Detalles sobre empleados: \norte ' ;
decir 'Nombre: $nombre' ;
decir 'Salario: $salario' ;
decir 'Salario(con bonificación): $salario_con_bonificación' ;
Producción:
El siguiente resultado aparece después de ejecutar el script:
Conclusión
En este tutorial se muestran los usos de los módulos integrados y definidos por el usuario en Perl mediante ejemplos sencillos.