Valider un formulaire via LWP et HTML::Form

Version imprimable

Bonjour,

voici mon objectif:

Je veux récupérer ( et sauvegarder) les données de mon ami "exbury", contenues dans ce formulaire:

http://geny.com/ChallengeListePronos

avec mon code ci dessous, j'arrive avec le getstore à ne sauvegarder que les données de la page n°1. hors exbury est en page n°4

Je pense que je déclare mal les autres champs inputs du formulaire " form1" .Voici son code :

Code:

1
2
3
4
5
6
7
8
9
 
<form name="form1" action="ChallengeListePronos" method=POST>
Rechercher un joueur :<br>
<span class="forumLien"><input name="joueur" type="text" size="25"><a href="javascript:Search();">Rechercher</a></span>
 
<input type="hidden" name="datecourse" value="19/04/2007">
<input type="hidden" name="sens" value="">
<input type="hidden" name="page" value="">
</form>

et voici mon code actuel:

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
25
26
27
28
29
30
31
32
33
 
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use LWP::Simple;
use HTML::Form;
 
# definition des variables
my $joueur="exbury";
my $url = 'http://www.geny.com/ChallengeListePronos';
 
# initialisation de l'agent
my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
 
# création de la requête
my $req = HTTP::Request->new( GET => $url );
 
# exécute la requête et reçoit la réponse
my $res = $ua->request($req);
 
# le formulaire
my $form = ( HTML::Form->parse( $res->content, $url ) )[1];
 
# remplir le champ joueur
$form->find_input('joueur')->value($joueur);
 
my $validate = $ua->request( $form->click );
 
if ($validate->is_success) {
 
getstore($url, 'archive.txt');
 
}

Merci pour votre aide.

Altecad

Citation:

Envoyé par altecad

avec mon code ci dessous, j'arrive avec le getstore à ne sauvegarder que les données de la page n°1. hors exbury est en page n°4

Je pense que je déclare mal les autres champs inputs du formulaire " form1" .

Non, ton problème n'est pas là.
Citation:
Envoyé par altecad
Code:

1 2 3 4 5 6 my $validate = $ua->request( $form->click ); if ($validate->is_success) { getstore($url, 'archive.txt'); }
Ce getstore() envoie simplement une requête GET sans paramètre à l'URL initiale, donc tu obtiens simplement ce que cette URL renvoie par défaut, c'est à dire la première page...
Ce que tu veux faire, c'est récupérer le contenu renvoyé par ta requête obtenue par l'intermédiaire de HTML::Form, et qui devrait marcher parfaitement, il te suffit d'utiliser la méthode content() de $validate :
Code:

1 2 3 4 5 6 7 8 9 my $validate = $ua->request( $form->click ); if ($validate->is_success) { open my($store), '>', 'archive.txt' or die "Can't open archive.txt : $!\n"; print $store $validate->content; close $store; }
Et tu n'as pas besoin de LWP::Simple.

--
Jedaï

19/04/2007, 16h32
altecad

Cela fonctionne :D . merci beaucoup Jedai pour ta disponibilité et ton savoir.

Altecad.