Variables globales Perl

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:

---

our $myvariable;

---

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

Code:

---

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 ?

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.

Citation:

---

Envoyé par 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.

---

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 ?

Tu as oublié le sygil :

Code:

---

print $A::myvariable;

---

Citation:

---

Envoyé par Philou67430

Tu as oublié le sygil :

Code:

---

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

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:

---

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

---