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 : 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
 
#!/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.