Référence d'un méthode d'objet

Bonjour,

Dans mon script j'utilise un hash qui ressemble à ceci :
Code:

1 2 3 4 5 6 7 8 9 10 my %items = ( T_ENV() => [ \$this->$_showEnv, [ O_NAME, O_SITE ] ], O_SITE() => [ \&showSite, [ O_NAME ] ], O_HOST() => [ \&showHost, [ O_NAME, O_SITE, O_TYPE ] ], O_CELL() => [ \&showCell, [ O_NAME, O_SITE, O_TYPE, O_HOST ] ], O_APPLI() => [ \&showApp, [ O_NAME, O_SITE, O_TYPE, O_CELL, O_HOST, O_NODES, O_STATUS, O_DETAIL, O_FILE_SERVING, O_MESA_RESTART, O_MESA_RIPPLE, O_RUNNING, O_START_ON_BOOT, O_SINGLE, O_SUPERVISED, O_STOP_EXPIRED ] ], O_EAR() => [ \&showEAR, [ O_NAME, O_SITE, O_APPLI ] ], );
La valeur associée à la clé de ce hash correspond donc à un tableau anonyme contenant une référence vers une fonction ainsi qu'un autre tableau anonyme.

C'est la référence vers la fonction qui me pose problème (première ligne). Cela fonctionnait avant que cette fonction ne devienne une méthode d'objet (lignes suivantes), quelle syntaxe peut me permettre de retrouver le même fontionnement qu'avant ?

Merci d'avance pour votre aide.

Complément d'infos : actuellement cette syntaxe fonctionne mais la méthode est appelée dès la déclaration du hash. De plus cet appel plante puisqu'aucun paramètre n'est passé à la méthode.

L'appel est fait par la suite avec la ligne suivante :

Code:

&{$items{$options->{+O_ITEM}}->[0]}($context, $appConfig, $infraConfig, $options);

Difficile de rendre le comportement "identique" pour des clés de type différents :
- la première ligne fait référence à la méthode d'un objet donné : il y a deux données, dont l'une est une référence, l'autre une méthode, donc une propriété de type sub de l'objet
- la deuxième ligne (et les autres) fait référence à une fonction "globale" non liée à un objet. Il est donc aisé d'en récupérer la référence.

Lors de l'appel d'une méthode d'un objet, il y a un paramètre "implicite" qui est passé à la fonction : $this. Pour rendre générique le processus, il faudrait tenter de violer l'objet. Nous supposerons que la classe de l'objet soit "SITE" et que showEnv en soit une méthode :
Code:

1 2 3 4 5 6 7 8 9 10 my %items = ( T_ENV() => [ \&SITE::showEnv, [ O_NAME, O_SITE ] ], O_SITE() => [ \&showSite, [ O_NAME ] ], O_HOST() => [ \&showHost, [ O_NAME, O_SITE, O_TYPE ] ], O_CELL() => [ \&showCell, [ O_NAME, O_SITE, O_TYPE, O_HOST ] ], O_APPLI() => [ \&showApp, [ O_NAME, O_SITE, O_TYPE, O_CELL, O_HOST, O_NODES, O_STATUS, O_DETAIL, O_FILE_SERVING, O_MESA_RESTART, O_MESA_RIPPLE, O_RUNNING, O_START_ON_BOOT, O_SINGLE, O_SUPERVISED, O_STOP_EXPIRED ] ], O_EAR() => [ \&showEAR, [ O_NAME, O_SITE, O_APPLI ] ], );
Lors de l'appel, si les différentes clés ne sont pas toutes du même type (fonction globale ou méthode, il faudrait alors écrire quelque chose comme :
Code:

1 2 3 4 5 6 7 if (ref($method) ne "SITE") { $method->(...); } else { $this->$method(); # ou encore $method->($this, ...); si cela échoue }
Maintenant, si tu comptes migrer toutes les clés en méthode d'objet, indique le moi, je me raviserai : il y aura sans doute plus simple.

Merci pour cette réponse.

A terme je n'aurai dans mon hash que des références vers des méthodes d'objets, c'est à dire que des appels du type que tu proposes :

Code:

\&SITE::showEnv

J'ai testé avec cette suggestion, c'est mieux, lors de la déclaration du hash, la méthode n'est plus invoquée et je n'ai plus d'erreur. En revanche quand arrive la phase d'appel de cette méthode avec :

Code:

&{$items{$options->{+O_ITEM}}->[0]}($context, $appConfig, $infraConfig, $options);

Cela ne fonctionne pas, je vois bien dans le debugger que la référence vers la méthode ne semble pas résolue :
Code:

1 2 3 4 5 6 7 DB<1> x $items{$options->{+O_ITEM}} 0 ARRAY(0x15aa740) 0 CODE(0x15aa6c0) -> &CODE(0x15aa6c0) in ??? 1 ARRAY(0x15aa5e0) 0 'name' 1 'site'
Une idée ?

Si tout sera cohérent, oublie la méthode précédente (qu'il aurait fallu débugger pour corriger).
Utilise cette méthode à la place :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    my %items = (
            T_ENV()         => [ showEnv =>          [ O_NAME, O_SITE ] ],
            O_SITE()        => [ showSite =>        [ O_NAME ] ],
            O_HOST()        => [ showHost =>        [ O_NAME, O_SITE, O_TYPE ] ],
            O_CELL()        => [ showCell =>        [ O_NAME, O_SITE, O_TYPE, O_HOST ] ],
            O_APPLI()       => [ showApp =>         [ O_NAME, O_SITE, O_TYPE, O_CELL, O_HOST, O_NODES, O_STATUS, O_DETAIL,
                                                      O_FILE_SERVING, O_MESA_RESTART, O_MESA_RIPPLE, O_RUNNING, O_START_ON_BOOT,
                                                      O_SINGLE, O_SUPERVISED, O_STOP_EXPIRED ] ],
            O_EAR()         => [ showEAR =>         [ O_NAME, O_SITE, O_APPLI ] ],
    );
 
...

Edit : pour l'usage, je poste dans le prochain message

En fait, je comprends pas trop à quoi correspondent les clés de %items ?
Des scalaires retournés par des fonctions ? (T_ENV() par exemple).

Tentative d'écrire l'appel d'une méthode (sans paramètre) :
Code:

1 2 my $method = $items{T_ENV()}->[0]; $this->$method();
Je n'ai pas trouvé de moyen d'écrire cela en une seule ligne (le nom de la méthode ne peut être qu'un bareword ou un scalaire, pas une expression plus complexe).

Citation:

Envoyé par Philou67430

Je n'ai pas trouvé de moyen d'écrire cela en une seule ligne (le nom de la méthode ne peut être qu'un bareword ou un scalaire, pas une expression plus complexe).

La seule méthode que j'ai trouvé, très moche, est de déréférencer après voir pris la référence avec \ :

Code:

$this->${\$items{T_ENV()}->[0]}();

(sous réserve ; mais je trouve ça vraiment très moche).

Ben écoute cette méthode me convient parfaitement, ça fonctionne très bien, j'ai juste eu besoin de rajouter des guillemets autour du nom de la méthode dans le hash.

Merci beaucoup pour ton aide précieuse.

Pour info le T_ENV() est simplement une constante, les () sont nécessaires pour que ce soit le contenu de la constante qui soit utilisée et pas la chaine "T_ENV" (cas particulier d'une constante utilisée comme clé d'un hash).

Encore merci.

Citation:

Envoyé par Philou67430

La seule méthode que j'ai trouvé, très moche, est de déréférencer après voir pris la référence avec \ :

Code:

$this->${\$items{T_ENV()}->[0]}();

(sous réserve ; mais je trouve ça vraiment très moche).

Ok, c'est intéressant, mais effectivement je pense que cela nuit trop à la compréhension du code.

Citation:

Envoyé par MyGoul

j'ai juste eu besoin de rajouter des guillemets autour du nom de la méthode dans le hash.

Effectivement, il n'est jamais bon de conserver des barewords, même si parfois, ils sont admis (comme clé de hash ; je n'avais initialement pas fait attention qu'il s'agissant en fait d'une table simple).
Bonne fin de journée.