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
27
28
29
30
31
32
33
| # création de mon parser
my $parser = HTML::Parser->new();
# définition des mes evenements
$parser->handler( text => \&texxt, "text" );
$parser->handler( start => \&starrt, "tagname,attr" );
$parser->handler( end => \&ennd, "tagname" );
$parser->parse($page);
$parser->eof;
{
my $in = 0;
sub starrt {
my ($tag, $attr) = @_;
$in++
if $tag eq 'h2';
}
sub ennd {
my ($tag) = @_;
$in-- if ($tag eq 'h2' and $in='1');
}
sub texxt {
my ($text) = @_;
push @dataa, $text if ($in );
}
sub get_datas {
#print "in : ".$in;
return $dataa[0];
}
} |
