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

Question

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

当我从开发工具中进行复制为卷曲时，我无法确认相同的唯一标头是

-H 'Cookie:

及其内容。运行该curl命令会给我带来正确的结果，就像我在浏览器中收到的一样。

那么，我应该使用 WWW::Mechanize 的什么语法来显式设置 cookie 的值，而不是让 Mechanize 根据过去的获取/帖子为我做这件事？

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

Answer 1

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

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

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

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

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