Poo reference d'une methode a un objet stocker dans $this

Bonjour,

je viens de m'essayer à la poo pour refaire un programme, en perl/Tk mais je bloque quand je dois mettre une référence a une méthode pour la commende d'un bouton,

en effet ma méthode se trouve dans un objet qui est dans $this.

en gros je vais faire ça

Code:

---

1 2 3 4

$a = aClass->new(); $b = bClass->new($a); $b->methodQuiVaUtiliserUneMethodDeA();

---

et donc

Code:

---

1 2 3 4 5 6 7 8 9

sub methodQuiVaUtiliserUneMethodDeA{ ... $frameLeft->Button( -text => 'Envoyer', -background =>"#CCCCFF", -command => \&$this->{"objA"}->doIt, )->pack(-fill => "x"); ...

---

sauf que ça ne fonctionne pas

P-S je ne savais pas ou poster, ici ou dans la rubrique sur les UI et comme c'est plus un problème lié au langage ...

Merci

je m'auto répond :lol:
j'ai trouver deux façon de le faire, la première est moche et suppose qu'il n'y ai pas de paramètres :( et la seconde et bonne même je suppose qu'il y est une véritable façon de le faire qui m'est encore inconnue.

la première, utilise une propriété de la classe "UNIVERSAL" et de sa méthode "can" qui lorsque la méthode passer en paramètre existe, elle renvoie une référence à cette dernière. Ce qui donne :

Code:

---

$this->{"objA"}->can("doIt")

---

là seconde consiste à faire une fonction particulière dont j'ai oublié le nom :oops:

Code:

---

-command => sub{$this->{"objA"}->doIt(paramètres)}

---

voilà je met résolue mais si quelqu'un trouve une meilleure façon je suis preneur.

Merci

Citation:

---

Envoyé par magicshark

là seconde consiste à faire une fonction particulière dont j'ai oublié le nom :oops:

---

Une fonction de rappel, peut-être?

en faite j'ai recherché c'est une fonction anonyme cf guide de la programmation perl (by djibril)

Une fonction anonyme, c'est juste un nom savant pour parler d'une fonction qui n'a pas de nom. Normal, donc, que tu aies oublié son nom. :mrgreen:

Comme elle n'a pas de nom, on l'appelle souvent par une référence (un coderef). En tant que tel, ça n'apporte pas grand chose, mais ça permet d'appliquer toute une série de méthodes de programmation avancée souvent issues de l'univers de la programmation fonctionnelle (Lisp, Scheme, Haskell, etc.): fonctions de rappel (callback fonctions), fermetures (closures), tables de répartition (dispatch tables), tableaux de fonctions, fabriques de ou usines à fonctions (function factory), etc.

Quand tu fais un sort sur un tableau:

Code:

---

my @sorted_array = sort {$a <=> $b} @unsorted_array;

---

le bloc de code {$a <=> $b} définissant la comparaison à utiliser est en fait implicitement une fonction anonyme passée à la fonction sort pour qu'elle sache comment elle doit faire le tri.