Discussion :

[m3z91]

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:

Fichier monsouspackage.pm;

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

return $mavariable;
}

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.

[Lolo78]

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

[m3z91]

Bonjour,

merci de votre réponse.

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

oui ça me semble de logique et normal.

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 ?

[Lolo78]

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.

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.

[m3z91]

Bonjour

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 :-)

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.