如何使用WWW :: Mechanize选择随机列表框项？

Question

使用Perl的WWW::Mechanize模块，我想从选择框中选择一个随机值。我怎样才能做到这一点？使用dump_forms我可以转储选择框值，但是如何在数组中获取它们？

Answer 1

WWW::Mechanize使用HTML::Form处理表单。您可以使用form_name或form_number方法获取HTML :: Form对象。所以，使用这样的东西：

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