[HTML::TreeBuilder] Aide pour utiliser la fonction

Version imprimable

Bonjour à tous,

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

Voici mon code :

Code:

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:

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

12/02/2011, 12h42
lilian_h

Bonjour,

Comme il est écrit dans le message d'erreur, il y a un problème à la ligne 14.
Je pense que pour commencer il faut régler ce problème.

Je ne connais pas bien cette partie, mais est ce que tu peux vraiment mettre des espaces dans les noms des cookies ?

Lilian.
12/02/2011, 12h57
White Angels

Bonjour,

Le cookie je l'ai récupérer avec le plugin tamper data, il fonctionne parfaitement avec l'extension cURL de php.

la variable $m->content contiens parfaitement la source html du site, par compte impossible d'utiliser HTML::TreeBuilder pour "trier" cette source html.

merci de votre aide.
19/02/2011, 19h22
White Angels

Je me permet de faire un petit up
21/02/2011, 09h16
Philou67430

Ce n'est pas HTML::TreeBuilder qui pose problème, mais WWW::Mechanize qui n'accepte pas le paramètre "agent_alias" que tu lui fournis.

Or, la documentation de WWW::Mechanize est claire :

Citation:

The list of valid aliases can be returned from "known_agent_aliases()".
The current list is:

· Windows IE 6

· Windows Mozilla

· Mac Safari

· Mac Mozilla

· Linux Mozilla

· Linux Konqueror

Tapes donc la commande suivante et choisi une chaine à mettre dans ton agent_alias, ou utilise la méthode agent au lieu de agent_alias pour initialiser le nom de ton agent :

perl -e 'use WWW::Mechanize;print join ", ", WWW::Mechanize->known_agent_aliases'