Problème de module ( apparement )

Version imprimable

Problème avec Mechanize - Identification

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:

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:

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.

24/11/2008, 21h01
Jedai

Je suppose que le "sername" est juste une erreur de copier coller ? Par ailleurs ce script est vraiment bizarre : tu lui dit de suivre des liens mais a priori tu n'est pas encore sur une page web à ce moment là...

--
Jedaï

J'ai modifié mon script en relisant le CPAN et j'ai écrit çela qui fonctionne mieux :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #! /usr/bin/perl -w use strict; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); my $url1 = 'mon_url_de_login'; my $url2 = 'mon_url_de_recherche'; $mech-> get ($url1); $mech->set_visible ( 'login', 'password' ); # $mech-> get ($url2); my $res=$mech->response()->as_string; print $res;
Je pense être authentifié sans en avoir la certitude ...
Le problème maintenant c'est que je dois aller sur une autre page en gardant ma session ouverte et un get ( nouveau lien ) me dit que je ne suis pas authentifié.

Est ce je peux savoir si je suis authentifié dans ce script ? et comment garder ma session sur une autre page du même site bien sure.

25/11/2008, 21h25
Jedai

Une fois que tu as entré ton login et mdp (en supposant que set_visible() ait choisi les bon champs, ce qui dépend de la page HTML), il faut que tu valides le formulaire (avec click() par exemple). Ensuite, les cookies devrait conserver ta session, probablement.

--
Jedaï

Il y a deux que textbox visible donc normalement il y a pas de problème pour le set_visible ?

Sinon, j'ai regardé la fonction click() et click_button() sur le CPAN mais je trouve ça vraiment pas claire. J'arrive pas à simuler le clic :s

J'ai essayé avec la fonction forms() de récupérer les nom de bouton mais ça n'a pas fonctionné.

Avec HTML::Form et LWP j'ai réussi à récupérer les boutons qui donnent :

Code:

1
2
3
4
5
user (text) :
passwrd (password) :
cookielength (hidden) : -1
Use of uninitialized value i
 (submit) : Identifiez-vous

Voilà le code que j'ai écrit avec Mechanize :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use WWW::Mechanize;
 
my $mech = WWW::Mechanize->new();
my $url1 = blabla
my $url2 = blabla
 
$mech-> get ($url1);
 
$mech->set_visible ( 'seb', 'mdp' );
 
my @list = $mech->forms();
print "liste des liens sur la page : @list";
 
my $res=$mech->response()->as_string;

Me renvoie :

Code:

1
2
3
4
5
6
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83.
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83.
liste des liens sur la page : HTML::Form=HASH(0x304de14) HTML::Form=HASH(0x304dd
a4)

Sinon le code pour se loguer est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<table class="box" cellpadding="0" cellspacing="0">
<tr><td class="boxTL"><img alt="Box" src="http://www.developpez.net/forums/images/box/side_tl.png" /></td><td class="boxT"><h3>Membre</h3></td><td class="boxTR"><img alt="Box" src="http://www.developpez.net/forums/images/box/side_tr.png" /></td></tr><tr><td class="boxL"></td><td class="boxC">
 
		<form action="http://www.newbiecontest.org/forums/index.php?action=login2" method="post" accept-charset="UTF-8">
			<table border="0" cellspacing="1" cellpadding="0" class="ssi_table">
				<tr>
					<td align="right"><label for="user">Identifiant:</label>&nbsp;</td>
					<td><input type="text" id="user" name="user" size="9" value="" /></td>
				</tr><tr>
					<td align="right"><label for="passwrd">Mot de passe:</label>&nbsp;</td>
					<td><input type="password" name="passwrd" id="passwrd" size="9" /></td>
 
				</tr><tr>
					<td><input type="hidden" name="cookielength" value="-1" /></td>
					<td><input type="submit" value="Identifiez-vous" /></td>
				</tr>
			</table>

et pour le click j'ai écrit :

$mech->click('Identifiez-vous');

et ça me renvoit :

Code:

1
2
3
4
5
6
7
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83.
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83.
Use of uninitialized value in string ne at C:/Perl/lib/HTML/Form.pm line 669.
No clickable input with name Identifiez-vous at C:/Perl/site/lib/WWW/Mechanize.p
m line 707

J'espère que c'est pas trop confus. Moi je me sort pas, tout ça à cause du nom d'un bouton lool. Je m'en souviendrai tiens ! ! :aie:

26/11/2008, 05h48
Jedai

Si tu mets juste click() sans nom de bouton, il trouvera le bouton tout seul...

--
Jedaï
26/11/2008, 10h35
sebbb59

Merci pour la réponse a 5h48 lool t'es courageux de jeter un oeil sur le forum a cette heure la. Mon script fonctionne ! ! ! Merciiii

Par contre a plusieurs moments dans le script j'ai ce message d'erreur :

Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83.
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/l
ib/HTML/PullParser.pm line 83. ( plusieurs fois, par paire)

qui s'affiche avant l'exécution du code. Comment je peut les virer ? :lol: