Différents exemples de modules Perl
Les méthodes d'utilisation des modules Perl intégrés et des modules définis par l'utilisateur sont présentées dans cette partie du didacticiel.
Exemple 1 : Utilisation du module intégré
Dans cet exemple, les utilisations de trois modules intégrés de Perl sont présentées. Ce sont « strict », « avertissements » et « 5.34.0 ». Le module « strict » permet d'activer les différents types de restrictions pour écrire les scripts Perl. Par exemple, aucune variable ne peut être déclarée sans le mot clé « my » si ce module est utilisé dans le script. Le module « avertissements » permet d'afficher les différents types de messages d'avertissement après l'exécution du script qui aident le codeur à comprendre l'erreur. Le module « 5.34.0 » permet d'utiliser les différentes fonctionnalités de ce module dans le script. La fonction « say » qui permet d'imprimer les messages avec une nouvelle ligne est la fonctionnalité de ce module.
#!/usr/bin/perl
#Activer la restriction pour le codage
utiliser strict ;
#Afficher un message d'avertissement en cas d'erreur
utiliser avertissements ;
#Activer différents services
utiliser 5.34.0 ;
#L'utilisation du mot clé 'my' est obligatoire pour le module 'strict'
ma $langue = 'Perle' ;
#Activer l'utilisation de la fonctionnalité « dire »
dire 'Apprenez la programmation en langage $.' ;
Sortir:
La sortie suivante apparaît après l'exécution du script :
Exemple 2 : Utilisation du module défini par l'utilisateur
Les utilisateurs de Perl peuvent créer leur module dans un but particulier en créant un fichier avec l'extension « .pm ». Dans cet exemple, un module défini par l'utilisateur est créé et il est utilisé dans un autre script Perl à l'aide du mot-clé « use ».
Créez un module défini par l'utilisateur :
Créez un fichier nommé « Bonus.pm » avec le script suivant. Ici, le mot-clé « package » est utilisé pour définir qu'il s'agit d'un module. Ce module contient un sous-programme qui calcule la prime d'un employé en fonction du salaire et du montant des ventes. Deux valeurs d'argument sont transmises depuis le script Perl dans lequel ce module est utilisé. Le premier argument contient le salaire et le deuxième argument contient le montant des ventes. Le bonus est de 15% du montant des ventes si le salaire est supérieur à 10 000. Le bonus est de 10% du montant des ventes si le salaire est supérieur à 7 000. Le bonus est de 5% du montant des ventes si le salaire est inférieur à 10 000 Le « 1 ; » est utilisé à la fin du module pour renvoyer true. Sinon, une erreur est imprimée.
Bonus.pm
#!/usr/bin/perlutiliser strict ;
utiliser avertissements ;
utiliser 5.34.0 ;
forfait Bonus ;
#Déclarez le sous-programme pour calculer le bonus
sous calculer_bonus
{
# Initialiser les variables
mon salaire en $ = $_ [ 0 ] ;
mon $sales_amount = $_ [ 1 ] ;
mon bonus $ = 0,0 ;
#Calculer le bonus
si ( $salaire > 10000 )
{
$bonus = $sales_amount* 0,15 ;
}
Elsif ( $salaire > 7000 )
{
$bonus = $sales_amount* 0,10 ;
}
autre
{
$bonus = $sales_amount* 0,05 ;
}
#Renvoyer le bonus calculé
retour $bonus ;
}
1 ;
Importez un module dans un script Perl :
Créez un fichier Perl avec le script suivant qui importe le module « Bonus » créé précédemment pour calculer le montant du bonus d'un employé en fonction du salaire et du montant des ventes attribués dans le script.
#!/usr/bin/perlutiliser strict ;
utiliser avertissements ;
utiliser 5.34.0 ;
utiliser le bonus ;
#Initialiser les variables
mon $nom = 'Mir Sabbir' ;
mon salaire en $ = 60000 ;
mon montant sal_$ = 9700 ;
#Appeler le sous-programme depuis le module
mon bonus $ = Bonus ::calculate_bonus ( $salaire , $sal_amount ) ;
mon $salary_with_bonus = $salaire + $bonus ;
#Imprimez les informations sur les employés en fonction des ventes
dire 'Détails de l'employé: \n ' ;
dire 'Nom : $nom' ;
dire 'Salaire : $salaire' ;
dire 'Salaire (avec bonus) : $salary_with_bonus' ;
Sortir:
La sortie suivante apparaît après l'exécution du script. Ici, le « -I ». L'option doit être utilisée au moment de l'exécution du script pour connaître le module importé défini par l'utilisateur :
Exemple 3 : Utilisation du module défini par l'utilisateur à l'aide de « Require »
La fonction « require » est une autre façon d'importer les modules dans le script Perl et elle est illustrée dans cet exemple. Le module « Bonus » précédemment créé est importé dans le script grâce à la fonction « require ». Les valeurs du salaire et du montant des ventes sont extraites de l'utilisateur dans ce script. L'autre partie du script est similaire à l'exemple précédent.
#!/usr/bin/perlutiliser strict ;
utiliser avertissements ;
utiliser 5.34.0 ;
exiger un bonus ;
#Prendre les commentaires de l'utilisateur
dire « Entrez le nom de l'employé : » ;
grignoter ( mon $nom = <> ) ;
dire 'Entrez le salaire :' ;
grignoter ( mon salaire en $ = <> ) ;
dire 'Entrez le montant des ventes :' ;
grignoter ( mon montant sal_$ = <> ) ;
#Appeler le sous-programme depuis le module
mon bonus $ = Bonus ::calculate_bonus ( $salaire , $sal_amount ) ;
mon $salary_with_bonus = $salaire + $bonus ;
#Imprimez les informations sur les employés en fonction des ventes
dire 'Détails de l'employé: \n ' ;
dire 'Nom : $nom' ;
dire 'Salaire : $salaire' ;
dire 'Salaire (avec bonus) : $salary_with_bonus' ;
Sortir:
La sortie suivante apparaît après l'exécution du script :
Conclusion
Les utilisations des modules intégrés et définis par l'utilisateur en Perl sont présentées dans ce didacticiel à l'aide d'exemples simples.