Discussion :

[Invité(e)]

Bonjour les gens,

je me fais des script Perl avec interface graphique TK (bien sympa en passant).
Par contre, y a des fonctions que j'utilise dans plusieurs programmes, et j'aimerai bien séparer proprement mon main() de ces fonctions (je viens du C).

y a t'il une possibilité d'écrire du code Perl avec 1 fichier pour le main, 1 autre pour certaines fonctions, etc etc ? Si oui, comment déclarer ces appels de fonction ? Sinon, tant pis...

merci

[Gamdwin]

Ca s'appelle des modules.

Tu regroupes tes sub dans un fichier .pm, que tu intègres avec "use nom_du_module.pm" (un peu comme un #include quoi).

Ton module doit commencer par :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
 
package nom_du_module;
require Exporter;
 
@ISA = ("Exporter");
@EXPORT = qw(liste_des_variables_et_fonctions_publiques);
$VERSION = num.version ;
 
# ... suit la liste des sub

[2Eurocents]

Et il est important de ne pas oublié qu'un module doit impérativement se terminer, soit par :

Code :

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

1;

soit par l'exécution d'une fonction d'initialisation qui retourne 0 en cas d'échec.

En effet, le

Code :

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

use module.pm;

doit pouvoir retourner un possible échec du chargement de module. En effet, si le module exige une architecture spécifique pour fonctionner, ou bien une connexion à un réseau, ou a une base de données ... il faut pouvoir tout arrêter en cas d'echec.

La contrepartie, c'est qu'il faut pouvoir signaler un succès ... d'où cette dernière ligne en

Code :

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

1;

pour les modules qui ne risquent pas d'échouer.

Bon courage.

[Invité(e)]

Ok merci pour ces infos.

la tt de suite c'est bientot le WE, je verrai ca un peu plus tard, mais je garde le topic ds un coin