Discussion :

[tsukasag]

bonjour,
Je souhaiterais savoir si vous pourriez m'indiquez comment récuperer le contenu d'un balise d'un site :

exemple : j'ai un site avec une balise <div id="profilename">contenu</div> sur le site http://quelqonque.fr/index.php?id=15
et je souhaiterais récuperer en perl ce "contenu"

Merci par avance !!!

[tsukasag]

toute mes excuses, j'ai réussi a modifer le script qui a été proposé précédament :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
#!/usr/bin/perl
use strict;
use warnings;
 
use LWP::Simple;
use HTML::Parser;
use HTML::Form;
 
my $page = get( "lien");
 
# création de mon parser
my $parser = HTML::Parser->new();
 
# définition des mes evenements
$parser->handler( text => \&text, "text" );
$parser->handler( start => \&start, "tagname,attr" );
$parser->handler( end => \&end, "tagname" );
 
$parser->parse($page);
 
print &get_data();
 
$parser->eof;
{
my $in;
my @data;
 
  sub start {
    my ($tag, $attr) = @_;
    $in++ 
      if $tag eq 'div' 
	and exists $attr->{id} 
	  and $attr->{id} eq 'profilename';
  }
 
sub end {
my ($tag) = @_;
$in-- if ($tag eq 'div' and $in='1');
}
 
sub text {
my ($text) = @_;
push @data, $text if ($in );
}
 
sub get_data {
#print "in : ".$in;
return @data;
}
 
}
exit;

Merci comme meme ;-)