perl の WWW::Mechanize でラジオボタンを操作するには。
フォームを特定して、ラジオボタンのフィールド名を指定してその値を設定する。
例えば一つ目のフォーム内にある name = "public_flag" なラジオボタンの選択肢を value = "private" に設定したいとき。
$mech->form_number(1);
$mech->set_fields('public_flag'=>'private');
こんなかんじ。
例えば。OpenPNE な SNS の自分の日記をぜんぶ非公開に設定するサンプル。
ラジオボタンの値を変更して submit したあと確認ページに遷移するからさらにそこでもう一回 submit するっていうよくある構成。
