Discussion :

[gorgonite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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


si quelqu'un connait l'astuce...

[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 ? Par ailleurs ton "new()" utilise-t-il bien bless() sur $self ?

--
Jedaï

[gorgonite]

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

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

evidemment...

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[gorgonite]

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