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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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