Mechanizeにおけるボタンクリックについて
Perl Mechanizeを使って、下記HTMLの"表示"と表示されているボタンを押したいのですが、いろんなパターンを利用しても押せません。処理後の＄mechのコンテンツをテキストで見ると、処理前後で更新(html遷移)がありません。試した、パターンは以下です。ActivePerl Verは5.8.8、OSはWindows XP SP2、mechanizeはver0.72です。
また、$mech->click_button('value' => '表示');を使うため、mechanizeをPPMを使ってver1.54にUpdateすると、
「Can't call method "header" on an undefined value at C:/Perl/site/lib/WWW/Mechanize.pm line 2347.」
というエラーがでて、click_button()のところでストップします。Mechanize.pmでuseしている各種パッケージをUpdateしても同様なエラーが出てclick_button()のところでストップします。
下記対象htmlのボタンを押すにはどうしたらよいでしょうか？皆様、よろしくお願いします。
１．パターン１
$mech->submit_form(
form_number => '1',
fields => {
0 => "1",
1 => "2",
},
);
２．パターン２
$mech->submit_form(
form_number => '1',
fields => {
0 => "1",
1 => "2",
},
button => ''
);
３．パターン３
$mech->form_number(1);
$mech->field( 0, 1 );
$mech->field( 1, 2 );
$mech->click();
４．パターン４
$mech->form_number(1);
$mech->field( 0, 1 );
$mech->field( 1, 2 );
$mech->submit();
５．対象html
<html><head><title>タイトル</title></head><body>
■中タイトル１<br><br><form action="/URL" method="post"><input type="hidden" name="NAME" value="ABCD">
[小タイトル１]
<br><select name="0">
<option value="0">AAA</option>
<option value="1">BBB</option>
<option value="2">CCC</option>
<option value="3">DDD</option>
</select><br>
[小タイトル２]<br>
<select name="1">
<option value="0">AAA</option>
<option value="1">BBB</option>
<option value="2">CCC</option>
</select><br>
<input type="submit" value="表示"></form>
<hr>該当データなし。<br><hr>
