lecture d'une variable privée dans une sub d'un package

Bonjour,

Je souhaite lire (uniquement) une variable privée (my $variable) définie dans une procédure d'un package.
Je connais le nom complet de la variable (package::sous-package::procédure::mavariable).

j'ai essayé ceci:

Citation:

---

Fichier monsouspackage.pm;

package monpackage::monsouspackage;
sub maprocedure {
my $mavariable="essai";

return $mavariable;
}

---

Citation:

---

Fichier test.pl;

use monpackage::monsouspackage;

my $package="monpackage";
my $spackage="monsouspackage";
my $sub="maprocedure";
my $variable="mavariable";

my $val=${"${package}::${spackage}::${sub}::${mavariable}"};

print "val=$val\n";

---

Mais cela ne fonctionne pas.
Ce n'est bien sûr par très orthodoxe mais il s'agit de faire un module de debug.

Est-ce possible ? comment fait-on ?

merci de votre aide.

Normalement, ce n'est pas possible, les variables lexicales sont privées.

Il existe cependant des outils qui permettent de contourner cette impossibilité, comme Padwalker: http://search.cpan.org/~robin/PadWal...8/PadWalker.pm

Bonjour,

merci de votre réponse.

Citation:

---

Envoyé par Lolo78

Normalement, ce n'est pas possible, les variables lexicales sont privées.

---

oui ça me semble de logique et normal.

Citation:

---

Envoyé par Lolo78

Il existe cependant des outils qui permettent de contourner cette impossibilité, comme Padwalker: http://search.cpan.org/~robin/PadWal...8/PadWalker.pm

---

merci de votre aide, malheureusement, je n'ai pas le droit aux modules supplémentaires -(

Une astuces ?

Citation:

---

Envoyé par m3z91

malheureusement, je n'ai pas le droit aux modules supplémentaires -(

---

Pourquoi donc? Il y a (presque) toujours moyen d'installer un module sur un répertoire local et d'indiquer à Perl qu'il doit aussi chercher les modules dans ce répertoire.

Citation:

---

Envoyé par m3z91

Une astuces ?

---

Pour autant que je sache, Padwalker explore une zone de mémoire appelée le scratchpad (cahier de brouillon). C'est de la magie de haut vol. Vouloir le faire toi-même risque pour le moins d'être très délicat.

Bonjour

Citation:

---

Envoyé par Lolo78

Pourquoi donc? Il y a (presque) toujours moyen d'installer un module sur un répertoire local et d'indiquer à Perl qu'il doit aussi chercher les modules dans ce répertoire.

---

Oui, le problème n'est effectivement pas technique. Je suis dans un contexte de (pré) prod que je ne maitrise pas. Je n'ai pas les
droit pour installer quoi que ce soit. je dois passer par le service qui va bien ... mais je voudrais faire ça avant les calendes grec :-)

Citation:

---

Envoyé par Lolo78

Pour autant que je sache, Padwalker explore une zone de mémoire appelée le scratchpad (cahier de brouillon). C'est de la magie de haut vol. Vouloir le faire toi-même risque pour le moins d'être très délicat.

---

Oh la ! je suis la délicatesse même ;-).
Grand merci pour cette info. Je vais creuser voir si c'est faisable à mon niveau.

merci de ton aide.