在 Perl 中管理 cookie

Question

我正在编写一个必须从服务器检索文件的 Perl 脚本。服务器需要由不同服务器在内部处理的身份验证。我需要做的是检索文件，首先，POST 到身份验证服务器，该服务器将返回两个 cookie。然后我需要通过 GET 将这些 cookie 发送到具有我需要的文件的目标服务器。我正在寻找网络，甚至在这里寻找例子，但我仍然不清楚如何去做。有人可以告诉我一个如何做到这一点的例子吗？

Answer 1

创建一个实现cookies的LWP::UserAgent对象就这么简单：

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

有关更多示例，请参阅此article。

Answer 2

您当然可以使用 Net::HTTP 并查看返回的标头来提取 cookie，然后在使用 write_request() 时将它们反馈回来，但这并不方便。