如何使用perl的LWP :: UserAgent在重定向期间维护cookie？

Question

我以前发送到特定网站的HTTP请求现在被重定向，最终破坏了我的代码。我意识到cookie不再适用于重定向域（当然）。我阅读了LWP的文档，但我没有找到任何相关的选项来自动保存/维护cookie。有没有简单的方法呢？

仅供参考：此行为使用Python的Requests类开箱即用。

Answer 1

以下内容增加了对LWP :: UserAgent的支持。

my $ua = LWP::UserAgent->new( cookie_jar => {} );

它会导致响应中返回的cookie与后续匹配请求一起发送，就像浏览器一样。