Discussion :

[Lukerinos]

Bonjour,

j'ai développé un script perl qui utilise mechanize pour remplire des form. Lors de ce remplissage, j'utilise $bot->untick() pour décocher une check box.

Si la checkbox n'existe pas, il me renvoie un warning (no checkbox....for value...)

Je voudrais gérer ce warning pour modifier le déroulement du script en fonction.

J'ai testé eval() mais apparemment aucun die() n'est invoqué lors de cette erreur.

Avez-vous une idée pour résoudre mon problème ?


Cdt

Lukerinos

[pospos]

tyu peux utilise l'argument "onwarn" dans l'appel au constructeur pour specifier une sub qui recuperera les warnings
http://search.cpan.org/~petdance/WWW...anize.pm#new()

[Lukerinos]

Merci pour cette réponse, je vais chercher de ce côté là.

Cdt

Lukerinos

[Lukerinos]

Bon ça marche nickel avec le code suivant :

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
 
my $checkwarn=0;
my $bot = WWW::Mechanize->new(onwarn => \&siwarn);
 
$bot->untick('checkboxname', '1');  
 
if ($checkwarn==1) { 
instructions;
} 
 
sub siwarn{
 
  if (substr($_[0], 0, 11) eq "No checkbox")	{
     $checkwarn=1;
  }
}

Merci beaucoup de votre aide.

Lukerinos