perl WWW ::在浏览器中机械化安全登录启动

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\"");

它给出了相同的验证错误，就像我刚刚点击“提交”按钮而没有输入用户名/密码一样。可能是什么导致了这个？饼干的东西？

Answer 1

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