perl WWW::Mechanize 在浏览器中启动安全登录

Question

我正在尝试使用此脚本自动登录网站:

use WWW::Mechanize;
use LWP;

my $company = 'company';
my $password = 'password';

my $mech = WWW::Mechanize->new();
my $url = 'https://www.infokeeper.com';

$mech->get($url);
$mech->form_name('GetLogin');
$mech->field('company', $company);
$mech->field('password', $password);                                                                                          
$mech->click('SubmitButton');

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

my $url2 = $mech->uri;
system("chromium-browser \"$url2\"");

它确实登录成功，打开 content.html证明.但是，当我尝试在浏览器中使用

my $url2 = $mech->uri;
system("chromium-browser \"$url2\"");

它给出了相同的验证错误，就像我在没有输入用户名/密码的情况下点击了“提交”按钮一样。什么可能导致这种情况？ cookies 有事吗？

Answer 1

有WWW::Mechanize::Firefox如果你想在浏览器中做同样的事情。我写了 Controlling Firefox from Perl .