Problème de syntaxe d'après l'éxécuteur Perl ???
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 :
Code:
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;
} |
Si quelqu'un trouve le pourquoi ?? je l'en remercie d'avance !
YG
Edité par GLDavid, merci de penser à mettre les balises codes :tagcode: et de consulter les règles du forum.