在Perl中管理cookie

Question

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

Answer 1

使一个实现cookie的LWP::UserAgent对象就像这样简单：

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

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

Answer 2

你当然可以使用Net :: HTTP并查看返回的标头来取出cookie，然后在使用write_request（）时将它们反馈，但这很难方便。