Discussion :

[White Angels]

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

[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.

[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.

[White Angels]

Je me permet de faire un petit up

[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 :

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'