Formation Perl

Utilisation des modules en Perl
A propos
Mots clés
PERL Practical Extraction and Report Language. use commande perl permettant d’insérer un module. our commande perl permettant d’indiquer une donnée partagée. qw quoted word @EXPORT Liste des données exportées par défaut. @EXPORT_OK Liste des données exportée (import manuel). @INC Liste des répertoires de recherche des modules (équivalent au PATH Unix).
Cette documentation s’inspire librement des écrits de Sylvain Lhuillier.
Fichier module
Caractéristiques
– Un module est un ﬁchier dont le sufﬁxe est “.pm”. – Par convention, le nom du ﬁchier doit commencer par une Majuscule. – Le ﬁchier doit se trouver dans un des répertoires indiqués par @INC (par exemple le répertoire local .). – La première ligne d’un ﬁchier module doit indiquer le nom du module qui doit être identique au nom du ﬁchier sans extension à l’aide de la commande package Nomdumodule.
Exemple de ﬁchier module
Listing 3.1 – Outils.pm
1 package Outils ; 2 use s t r i c t ; 3 4 sub bonjour { 5 print » Bonjour tout le monde ! \ n » 6 }
La dernière ligne du script (1 😉 indique que le module s’est correctement chargé (VRAI). Dans le cas où une valeur de retour de 0 est retournée, le programme qui requiert ce module s’interrompt avec une erreur.
Utilisation d’un module
Il est possible d’utiliser le module en l’incluant par la commande use.
Listing 3.2 – script1.pl
1 use s t r i c t ; 2 use Outils ; 3 4 Outils : : bonjour ;
La commande Outils::bonjour correspond à l’appel de la fonction bonjour du module Outils.
Variables
Les variables des modules sont déclarables de 2 façons : – les variables internes au module que l’on dira privées – les variables accessibles de l’extérieur du module que l’on dira publiques
Variables privées
Une variable privée dans un module est déclarée à l’aide de la commande my suivi du nom de la variable.
Listing 3.3 – Outils.pm
1 package Outils ; 2 use s t r i c t ; 3 4 my $who = ‘ ‘ Eric ’ ’ ; 5 6 sub bonjour { 7 print » Bonjour $who ! \ n » 8 } 9 10 1;
Cette variable n’est pas accessible à l’extérieur du module. Il est à souligner qu’il est possible d’utiliser la commande my sur des fonctions de manière à rendre celle-ci privées.
Variables publiques
Une variable publique dans un module est déclarée à l’aide de la commande our suivi du nom de la variable.
Listing 3.4 – Outils.pm
1 package Outils ;
2 use s t r i c t ; 3 4 our $who = ‘ ‘ Eric ’ ’ ; 5 6 sub bonjour { 7 print » Bonjour $who ! \ n » 8 } 9 10 1;
Cette variable est accessible à l’extérieur du module.
Listing 3.5 – script2.pl
1 # ! / usr / bin / perl −w 2 3 use s t r i c t ; 4 use Outils ; 5 6 $Outils : : who= ’ ’ Souricier ’ ’ ; 7 print » Bonjour $Outils : : who » ;