Bonjour,

je souhaiterais utiliser le module Mechanize pour me connecter à une page web. J'ai écris ce code et il me génère une erreur que j'arrive pas à résoudre.

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
 #! /usr/bin/perl -w
 
use strict;
use WWW::Mechanize;
 
my $url;
my $mech = WWW::Mechanize->new();
 
$mech->follow_link( text_regex => qr/est : (\d+)/i );
 
$mech->submit_form(
    form_number => 3,
    fields      => {
		sername    => 'monlogin',
        password    => 'monpwd',
        }
    );
$mech->response();
Et j'obtiens l'erreur suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Use of uninitialized value $scheme in pattern match (m//) at C
okies.pm line 45.
Missing base argument at C:/Perl/lib/HTTP/Response.pm line 91
J'ai regardé le CPAN au sujet de la fonction response mais ça ne résout pas mon problème. Ni plus que les erreurs sur les lignes 45,91 m'éclairent.