Comment puis-je sélectionner un élément de liste aléatoire avec WWW :: Mechanize?

Question

Avec le module WWW::Mechanize de Perl, je souhaite sélectionner une valeur aléatoire dans une zone de sélection. Comment puis-je faire ceci? Avec dump_forms je peux vider les valeurs de boîte de sélection, mais comment puis-je les obtenir dans un tableau?

Answer 1

WWW::Mechanize utilise HTML::Form pour traiter des formulaires. Vous pouvez obtenir l'objet HTML :: Form avec les méthodes form_name ou form_number. Donc, utilisez quelque chose comme ceci:

my $form = $mech->form_number(1); 
my $select = $form->find_input('name_of_select_box'); 
my @values = $select->possible_values; 
$select->value($values[int rand @values]); # Choose a possible value at random