使用 Perl WWW::Mechanize 发送自定义 cookie（并查看自然设置的 cookie）

Question

我正在尝试抓取一个特别麻烦的网站。尽管所有参数都匹配并且引荐来源网址也匹配，但我在 perl 运行它时看到的结果与我在观看开发工具时看到的结果不同。

当我从开发工具执行 copy-as-curl 时，我唯一无法确认的 header 是 -H 'Cookie: 及其内容。运行 curl 命令给我正确的结果，就像我在浏览器中收到的一样。

那么，我在 WWW::Mechanize 中使用什么语法来显式设置 cookie 的值，而不是让 Mechanize 根据过去 gets/posts 为我做这件事？

此外，我如何查看它想要将 cookie 的值设置为什么？

Answer 1

要检查从 WWW::Mechanize 请求返回的 cookie，请使用以下命令：

my $cookie_jar = $mech->cookie_jar; # returns a HTTP::Cookies object
print $cookie_jar->as_string, "\n”;

要设置 cookie 供 WWW::Mechanize 在请求中使用，您需要执行以下操作：

$mech->cookie_jar->set_cookie(-name=>'YourCookieName',
                   -value=>'YourCookieValue',
                   -host=>'www.your website.com',
                   -expires=>'Sun, 31 Jan 2021 18:45:47 GMT',
                   -path=>'/'
                   -secure=>'false');

请参阅 HTTP::Cookies 文档了解其他有用的方法。

使用 Perl WWW::Mechanize 发送自定义 cookie（并查看自然设置的 cookie）

Sending custom cookies (and viewing the ones set naturally) with Perl's WWW::Mechanize

cookies

perl

mechanize