Mechanize Cookie authentification

Version imprimable

Bonjour,

j'ai codé un script perl pour me loguer à un site. Avec un navigateur normal (comprendre firefox ou ie) il faut accepter les cookies pour pouvoir se loguer.
Je ne vois pas comment ajouter la gestion de cookie à mon code perl. (télécharger les cookie automatiquement)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl -w
use WWW::Mechanize;
 
my $user = "mon_utilisateur";
my $pass = "mon_motdepasse";
my $url_login = "http://monurl/";
 
my $mech = WWW::Mechanize->new  (
              autocheck   =>  2,
              agent       =>  'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)'
                                                    );
 
$mech->get( $url_login );
$mech->submit_form(
                        form_number =>  1,
                        fields      =>  {								login => $user,
                                      passwd => $pass
                                          }
                           );
print $mech->content;
open(FH, ">index.log");
print FH $mech->content;
close(FH);

Merci de votre aide.
Cordialement,

Nicolas.

11/05/2009, 09h00
Philou67430

As-tu regardé du coté de LWP, HTML::Form et Http::Cookie ? C'est personnellement ce que j'utilise pour la réalisation de robots qui nécessitent une connexion sur un site.

Cela dit, WWW::mechanize supporte aussi les cookies.
Il suffit d'ajouter une propriété "cookie_jar" dans le constructeur (voir aide de new dans WWW::mechanize).
Code:

1 2 3 4 5 6 my $mech = WWW::Mechanize->new( autocheck => 2, agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)' cookie_jar => {} # an empty, memory-only HTTP::Cookies object );