Discussion :

[proth]

Bonjour,

Je suis débutant en PERL et je cherche à utiliser un fichier commun constante.pm qui comporterait les constantes et code d'erreurs de tous mes scripts et modules PERL. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
package Constants;
use strict 'vars';
 
# error codes
use constant {
        E_OK => 0,
        E_VALID => 1,
        E_NOT_FOUND => 2,
        E_ERROR => 3,
        E_MAX => 4
   };

et j'aimerais pouvoir utiliser ces constantes dans d'autres modules du genre :

Code :

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

1
2
3
4
5
 
if (E_OK == CheckValidity($elem))
{
... mon code ici
}

J'ai vu comment on pouvait exporter des variables... mais des constantes ?... En fait j'aimerais juste faire l'équivalent en PERL d'un constant.h inclus dans tous les fichiers C.

Merci beaucoup pour votre aide !

Pierre

[Manuxme]

Hello,

Tes constantes renseigne les en table de hachage et cela pourra fonctionner.
Par exemple dans ton package tu déclare :

our %constant {
E_OK => 0,
E_VALID => 1,
E_NOT_FOUND => 2,
E_ERROR => 3,
E_MAX => 4
};

Tu l'exportes comme les sub dans our EXPORT = qw("mes subs" %constant).

Dans ton script tu appels ta table par exemple :
foreach my $key (keys %constant)
{
print "print "parametre $key correspond a $constant{$key}\n";";
}

Voila le resultat :
parametre E_VALID correspond a 1
parametre E_NOT_FOUND correspond a 2
parametre E_MAX correspond a 4
parametre E_OK correspond a 0
parametre E_ERROR correspond a 3

Voili voilou, j'espère que ca reponds a ta question.

Manuxme.

[GLDavid]

Manuxme, la réponse serait encore mieux avec les balises codes ! Prends cette bonne habitude.

@++

[proth]

OK merci beaucoup !!!
Bien entendu j'ai _encore_ une question pour les pros du PERL sur les pointeurs de fonctions...