forms - Perl 機械化スクリプト フォームが定義されていません

Question

No form defined at cqSubmitter.pl at line 332番目のset_fields方法であるエラーが発生しました。Error POSTing http://micron.com Internal Server Error at line 39また、最後のclick_button行に対応するを取得することもあります。

何が起こっているのかよくわかりませんが、フォームが定義されていないと言っているのはなぜですか? 最初のclick_buttonメソッドを含むコードの前半は正常に動作し、正しいページを保存しますが、2 回目に試みるset_fieldsとエラーになります。

Mechanize パッケージに精通している人は、ここで何が起こっているか理解できますか?

use Data::Dumper;
use HTTP::Request::Common qw(GET);
use WWW::Mechanize;


#Prepopulated information
my $types_ = "";
my $dept_ = "";
my $group_ = "";


#Create new WWW::Mechanize object
my $mech = WWW::Mechanize->new( 'ssl_opts' => { 'verify_hostname' => 0 } );
my $url = "http://f2prbrequest";

#Fetch URL or Die Tryin'
$mech ->get($url);

$fname = "user";
$pswd = "password";


#Login to ClearQuest form using credentials
$mech->set_fields(
    USER => $fname
   ,PASSWORD => $pswd
);


$mech->click_button(
   name => 'Submit'
 );


#Set fields and actually fill out ClearQuest Form
$mech->set_fields(
    types => $types_
   ,dept => $dept_
   ,group => $group_
  );


$mech->click_button(
    name => 'submit1'
 );

$mech->save_content("clearQuestFilled.html");