如何使用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