Voici mon bout de code qui me permet de sélectionner un formulaire par son ID et de définir des valeurs pour les champs qui m'interessent puis ensuite de poster le formulaire.
Mais j'ai une erreur de syntaxe dans le code ?? et je voie pas où ??
Quelqu'un peut il m'aiguiller car je viens juste de me mettre au Perl et là je sèche ?
J'obtiens l'erreur suivante :
syntax error at C:/Perl/lib/WWW/Search/tradeagent.pm line 226 near "@f " (cette ligne correspond au second @f )
Voici mon bout de code, j'ai volontairement supprimer le reste du script car mon erreur est sur cette partie :
Si quelqu'un trouve le pourquoi ?? je l'en remercie d'avance !
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 while ( $self->{last_rep} < $self->{first_rep} { @f = HTML::Form->parse( $result_page, $self->{URL} ); @f = grep $_->attr("id") eq "form_jauge_none", @f; my $form_jauge_none = shift @f; # Change hidden values of the form # Affectation of the new values. $form->value( 'LAST_REP_PRINT_NONE', $self->{last_rep} ); $form->value( 'FIRST_REP_PRINT_NONE', $self->{first_rep} ); $form->value( 'NB_REP_TOTAL_NONE', $self->{nb_rep} ); $self->{has_more} = 1; $self->{req} = $form->click(); # After each while + 10 $self->{first_rep}= $self->{last_rep}+10; }
YG
Edité par GLDavid, merci de penser à mettre les balises codes et de consulter les règles du forum.
Partager