Perl LWP：通过HTTP标头发送Cookie不起作用

Question

我知道，如果您想使用Cookie，则必须将代码编写为：

$ua = LWP::UserAgent->new();
$ua->cookie_jar(HTTP::Cookies->new());

那么您可以get（），post（）等。

但是，如果仅将cookie字符串放入HTTP HEADER和get（）中，则无法获得正确的响应。 如：

$ua = LWP::UserAgent->new();
$ua->get($url, 'Cookie' => $cookie_string);

Answer 1

我认为您会发现使用该方法可以正确设置Cookie标头。

为了确保您可以写

my $resp = $ua->get('http://www.myurl.com', Cookie => 'my=data');

print $resp->request->as_string;

并且您应该看到该请求包含以下行

Cookie: my=data

Answer 2

从文档看来， $ua->cookie_jar()期望使用哈希值，以指定选项或提供数据结构来存储cookie。我会尝试

$ua->cookie_jar({});

另外，请注意，您尝试使用的方法只会将cookie存储在内存中，因此，一旦脚本结束，您对这些cookie的了解也会随之增加。 您可能想看看

有关内存cookie罐和基于文件的cookie罐的示例。

至于为什么HTTP :: Cookie以您的方式调用时不会返回合适的哈希值，我不确定，但事实并非如此。