Discussion :

[nymus7]

Bonjour à vous,

J'ai créé quelques scripts perl et chacun ont une même fonction! Pour éviter toutes redondances, je désire insérer cette fonction spéciale dans un autre script appelé par ex. function.pl

Que dois-je faire pour appeler cette fonction dans un autre programme?

Merci

[Beniou]

Bonjour,

Tu devrais créer ton propre module PERL dans lequel tu mettrais tes fonctions que tu comptes réutiliser.

Pour créer un module PERL ce n'est pas compliqué et tu devrais trouver des infos sur les tutos PERL (ex : http://lhullier.developpez.com/tutor...=page_14#LXIII).

En gros, tu crée un fichier .pm comportant certains paradigmes et lignes essentiels à un module (package, use Exporter etc.)


Ex : module mes_fonctions.pm comportant 2 fonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
package mes_fonctions;
use strict;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw (Exporter);
@EXPORT = qw (fonction_1 fonction_2 );
 
sub fonction_1 {
...
}
 
sub fonction_2 {
 ...
}
 
1;

Fichier exemple.pl utilisant les fonctions déclarées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use strict;
use mes_fonctions; #chargement du module
 
my $var = &fonction_1(); # ou my $var = mes_fonctions::fonction_1();

[nymus7]

Merci Beniou pour ton aide.... cool