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 :
et voici mon code actuel:
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>
Merci pour votre aide.
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'); }
Altecad
Partager