Discussion :

[drvercetti]

Bonjour,

Je dois faire évoluer une application en Perl. Cette application n'a pas été conçue en Modélisation Objet.

Comment utiliser des variables globales visible dans tous les modules ?

J'ai utilisé le mot clé our.

Exemple dans le module A:

Code :

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

our $myvariable;

Ensuite pour appellé ma variable d'un autre package je fais :

Code :

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

A::myvariable

Seulement j'ai l'erreur suivante : Bareword "a::myvariable" not allowed while "strict subs" in use a a.pm line ...

Quelqu'un peut-il m'aider à corriger ce problème ?

[djibril]

Si tu peux modifier le code pour mettre our sur certaines variables, tu devrais penser à rendre la programme objet pour créer des accesseurs, mutateurs.

[drvercetti]

Si tu peux modifier le code pour mettre our sur certaines variables, tu devrais penser à rendre la programme objet pour créer des accesseurs, mutateurs.

Merci du conseil, mais cela ne répond pas à ma question.

Quelqu'un a-t-il déjà eu cet erreur ?
Comment la faire disparaitre ?

[Philou67430]

Tu as oublié le sygil :

Code :

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

print $A::myvariable;

[drvercetti]

Tu as oublié le sygil :

Code :

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

print $A::myvariable;

Exact ! C'était ça mon pb, merci Philou67430 !

j'avais essayé A::$myvariable mais la syntaxe exacte est bien $A::myvariable !

Je mets le sujet en résolu

[Philou67430]

Le Sygil est toujours placé en tête d'identifiant, et il détermine toujours le type de l'expression retournée.
Par exemple, pour retourner plusieurs éléments de hash, on doit écrire :

Code :

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

1
2
my %hash = (a => 1, b => 2, c => 3);
say join ", ", @hash{qw(a b)};