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.