Ecrire son module Perl
Le fichier doit être dans un des répertoires de la liste donné par la variable @INC.
L’extention d’un fichier module est par convention pm.
Le nom de fichier MonModule.pm est identique au nom du package par convention.
#– fichier MonModule.pm
package MonModule;
use strict;
sub fncPremierModule {
my ($name) = @_;
print “Voici votre premier module, $name \n”;
}
# fin de module, renvoi différent de zéro pour signaler l’absence d’erreur au script appelant
1;
Appeler son module perl :
#!/usr/bin/perl -w
use strict;
use MonModule; # inclus le module
# Appele de la fonction fncPremierModule du module MonModule avec Jacques en argument.
MonModule::fncPremierModule(“Jacques”);
Déclaration de variables dans un module :
On peut utiliser my comme vu précédement mais aussi our qui permet au programme appelant le module d’accéder à la variable.
Exemple :
#–— fichier ConsTrigo.pm
package Constrigo;
use strict;
our $PI = 3,14;
1;
#!/usr/bin/perl -w
use strict;
use ConsTrigo;
print “PI vaut : $ConsTrigo::PI\n”;
Regroupement de module par catégorie :
Exemple de module regroupé dans une catégorie : Net::Ftp est le module ftp.pm faisant partie de la catégorie Net.
Pour faire ses propres catégories, par exemple Divers, on crée un dossier Divers qui doit être présent dans un des chemins listés par la variable @INC.
Pour placer le module Experimentation.pm dans la catégorie Divers, on le place dans le dossier Divers.
#–— fichier Divers/Experimentation.pm
package Divers::Experimentation;
use strict;
our $Test;
#!/usr/bin/perl -w
use strict;
use Divers::Experimentation;
$Divers::Experimentation::Test = “Ok”;
print “Valeur de Test : $Divers::Experimentation::Test\n”;
