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.
Et j'obtiens l'erreur suivante :
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();
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.
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
Partager