perl - 使用 WWW::Mechanize 丢失 Cookie

Question

我正在使用 WWW::Mechanize 来抓取网站并收集有关正在设置的 Cookie 的信息。这是我正在使用的代码：

#! /usr/bin/perl

use warnings;
use WWW::Mechanize;
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new;
my $mech = WWW::Mechanize->new( cookie_jar => $cookie_jar, autocheck => 1 );

my $response = $mech->get('http://assets.pinterest.com/images/PinExt.png');

print "Cookie:\n" . $cookie_jar->as_string;

当我使用 Chrome 并检查资源时，我可以看到设置了一个 cookie。但是，当我运行我的代码时，我什么也得不到。在许多网站上都遇到过这个问题。为什么我缺少 cookie？

Answer 1

您的代码适用于http://google.com/ （打印 cookie）

我已经使用 Firefox 访问了http://assets.pinterest.com/images/PinExt.png。没有设置 cookie。