无法使用www登录到站点：机械化

Question

我正在使用WWW：机械化尝试登录到站点。

代码

use WWW::Mechanize; 
my $mech = WWW::Mechanize->new(); 

$mech->get("https://www.amazon.com/gp/css/homepage.html/"); 
$mech->submit_form(
form_name => 'yaSignIn', 
fields => { 
email => 'email', 
qpassword=> 'pass' 
} 
); 


print $mech->content(); 

但是它没有被登录到该网站。我究竟做错了什么。该网站重定向并说，请启用Cookie继续。我怎么做 。

Answer 1

尝试把此块你才把。

$mech->cookie_jar(
     HTTP::Cookies->new(
      file   => "cookies.txt", 
      autosave  => 1, 
      ignore_discard => 1, 
    ) 
); 

SuperEdit2：我只是尝试这样做我自己，它似乎工作。试一试（将表格编号更改为3，并添加了代理别名）

use strict; 
use warnings; 
use WWW::Mechanize; 

# Create a new instance of Mechanize 
my $bot = WWW::Mechanize->new(); 
$bot->agent_alias('Linux Mozilla'); 
# Create a cookie jar for the login credentials 
$bot->cookie_jar(
     HTTP::Cookies->new(
      file   => "cookies.txt", 
      autosave  => 1, 
      ignore_discard => 1, 
    ) 
); 
# Connect to the login page 
my $response = $bot->get('https://www.amazon.com/gp/css/homepage.html/'); 
# Get the login form. You might need to change the number. 
$bot->form_number(3); 
# Enter the login credentials. 
$bot->field(email => 'email'); 
$bot->field(password => 'pass'); 
$response = $bot->click(); 

print $response->decoded_content;