[POO] passer une méthode en argument

Bonjour,



j'essaie de créer une classe dont un attribut est une instance de HTML :: Parser et qui doit appeler certaines méthodes pour les "événements" start, stop et text

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

# MonParser.pm # ...   sub init { my $self = shift; $self->{parser} = HTML::Parser->new( api_version => 3, handlers => [ start => [\&start, "tagname, attr"], end => [\&end, "tagname"], text => [\&text, "dtext"], ], marked_sections => 1, ); }   sub text { my ($self,$text) = @_; $self->{data} .= $text; }   # ...     1;

---

le problème vient lors de l'appel de text, car $self n'est pas passé, et je me retrouve avec $text = undef :cry:


si quelqu'un connait l'astuce... ;)


:merci:

D'après ton code je ne peux pas deviner le problème, a priori ça pourrait être du côté de l'appel, comment appelles-tu cette fonction ? Par ailleurs ton "new()" utilise-t-il bien bless() sur $self ?

--
Jedaï

Citation:

---

Envoyé par Jedai

D'après ton code je ne peux pas deviner le problème, a priori ça pourrait être du côté de l'appel, comment appelles-tu cette fonction ?

---

ce n'est pas moi qui appelle text, mais la méthode parse de HTML :: Parser... et j'aimerais savoir comment lui donner un argument $self en plus ;)

Citation:

---

Envoyé par Jedai

Par ailleurs ton "new()" utilise-t-il bien bless() sur $self ?

---

evidemment... ;)

Ok, j'avais pas vu, dans ce cas :

Code:

---

1 2 3 4 5 6 7 8 9

$self->{parser} = HTML::Parser->new( api_version => 3, handlers => [ start => [\&start, "tagname, attr"], end => [\&end, "tagname"], text => [sub { $self->text(@_) } , "dtext"], ], marked_sections => 1, );

---

--
Jedaï

en effet je n'avais même pas penser à déclarer une fonction anonyme... :oops:




:merci: