如何使用Perl通过cookie发送和HTTP请求？

Question

我是Perl的新手，我想编写一个Perl程序：

• 创建HTTP请求
• 将其发送到任何网址（例如http://www.google.com ）
• 在请求中包含cookie
• 将http响应代码记录在文件中

我试过这个：

    #!/usr/bin/perl
require HTTP::Request;
require LWP::UserAgent;

$request = HTTP::Request->new(GET => 'http://www.google.com/');
$ua = LWP::UserAgent->new;
$ua->cookie_jar({file => "testcookies.txt",autosave =>1});

$response = $ua->request($request);
if($response->is_success){
print "sucess\n";
print $response->code;
}
else {
print "fail\n";
die $response->code;
}

请告诉我们如何在'request'中设置cookie即ie

我们发送HTTP :: Request时如何设置cookie

我期待的是：

$request = HTTP::Request->new(GET => 'http://www.google.com/');
$ua = LWP::UserAgent->new;
$ua->new CGI::Cookie(-name=>"myCookie",-value=>"fghij");

这可能吗？？

Answer 1

如上所述，cookie在HTTP :: Cookies中：

• 你需要创建一个cookie罐

• 您可以设置要放入jar中的cookie的值

• 然后，将该jar与您的用户代理关联

例如：

my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new();
$cookies->set_cookie(0,'cookiename', 'value','/','google.com',80,0,0,86400,0);
$ua->cookie_jar($cookies);
# Now make your request

set_cookie有相当多的参数：

set_cookie（$ version，$ key，$ val，$ path，$ domain，$ port，$ path_spec，$ secure，$ maxage，$ discard，\\％rest）

这是因为cookie jar是从浏览器（UserAgent）的角度设计的，而不是单个请求。 这意味着在这种情况下并非所有参数都如此重要。

你需要得到的是$ key，$ val，$ path，$ domain，$ port。

关于：

500无法连接到www.google.com:80（错误的主机名'www.google.com'）

这意味着LWP无法查找Google的地址。 你是一个Web代理的背后？ 如果是这样，您将需要使用以下内容在UA中设置代理：

$ ua-> proxy（['http'，'https']，' http://proxyhost.my.domain.com：8080 / '）;

Answer 2

从LWP :: UserAgent和HTTP :: Cookies开始