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

Question

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

Answer 1

WWW::Mechanize使用HTML::Form处理表单。form_name您可以使用orform_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