Bonjour à tous,

J'ai un petit problème, je n'arrive pas utilisé la librairie HTML::TreeBuilder dans perl5.

Voici mon code :

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
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use HTML::TreeBuilder;
 
my $cookies='mon cookie';
my $useragent = 'Mozilla/5.0 (X11; U; Linux x86_64; fr; rv:1.9.2.13) Gecko/20101206 Ubuntu/10.10 (maverick) Firefox/3.6.13 GTB7.1';
my $base = 'monurl'; 
my $id =21;
 
    my $m = WWW::Mechanize->new;
    $m->agent_alias($useragent);
    $m->add_header( Cookie => $cookies );
    $m->get("${base}${id}");
 
 
 my $tree = HTML::TreeBuilder->new();
   $tree->parse_file($m->content);
 
 my @imgs = $tree->look_down( _tag => 'img');
 
    print "Imgs = " . @imgs . "\n";
et j'obtiens :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
morgan@root:~/Bureau$ perl scrip.pl
 
Unknown agent alias "Mozilla/5.0 (X11; U; Linux x86_64; fr; rv:1.9.2.13) Gecko/20101206 Ubuntu/10.10 (maverick) Firefox/3.6.13 GTB7.1" at script.pl line 14
 
Imgs = 0
morgan@root:~/Bureau$
Je ne comprend pas pourquoi les images ne sont pas trier, est-ce du a une mauvaise utilisation de la librairie ?

Bonne journée