perl - 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