Perl は初めてで、Web サイトにアクセスしようとしています。インターネットで見つけたこのコードを試しました:
use WWW::Mechanize;
use LWP;
my $username = 'user';
my $password = 'pass';
chomp($username);
chomp($pass);
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get('http://my_url.com');
$mech->form_name('theform');
$mech->field ('username' => $username);
$mech->field ('password' => $password);
$mech->click('Sign in');
print $mech->content();
ボタンは次のとおりです。
<input type="submit" name="sgnBt" title="Sign in" value="Sign in" id="sgnBt" class="btn btn-prim sd-sgnBtn">
出力は次のとおりです。
Error : No clickable input with name Sign in ...
$mech -> click('Sign in'); の行を置き換えます。これは、[サインイン$mech -> submit();
] ボタン をクリックした後に表示されるページではありません。
私も試しました:
$mech->click_button(name => 'Sign in');
$mech->click_button(name => 'sgnBt');
$mech->click_button(value => 'Sign in');
しかし、それらはすべて同じエラーを出します。アドバイスをください、考えが尽きます。私は多くのことを試しました。