[英]Unable to pass custom header using perl module HTTP::Request::Generator
我正在使用atom
并测试HTTP::Request::Generator
PERL 模块。 下面的代码在大部分情况下都有效,但我无法发送 cookies 或标头,即使我在代码中进行了设置,它也只显示默认标头。
use strict;
use warnings;
use HTTP::Request::Generator 'generate_requests';
use LWP::UserAgent;
my $ua = 'LWP::UserAgent'->new;
my $gen = generate_requests(
method => 'GET',
host => [ 'https://abc.ai/' ],
pattern => 'https://abc.ai',
headers => {
"User-Agent" => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64',
"Cookie" => '_abc',
},
wrap => sub {
my ( $req ) = @_;
# Fix up some values
$req->{'headers'}{'Content-Length'} = 666;
},
wrap => \&HTTP::Request::Generator::as_http_request,
);
while ( my $req = $gen->() ) {
my $response = $ua->request( $req );
# print $response->protocol, ' ', $response->status_line, "\n";
print $req->headers->as_string, "\n";
print $req->as_string();
# Do something with $response here?
if ($response->is_success) {
# print $response->decoded_content;
print $response ->header('title');
}
else {
die $response->status_line;
}
}
Output User-Agent: libwww-perl/6.31
Login
title
页表明我没有登录此 cookie 很好,我已经使用curl
对其进行了测试,我可以手动登录并检索所需的资源。 为什么 perl 失败,如何在上面的代码中访问我的 header 选项。 谢谢。
解决方案
body_params => {
comment => ['Some comment', 'Another comment, A++'],
},
添加上面的代码就解决了。
您不能两次提供相同的选项 ( wrap
):
wrap => sub {
my ( $req ) = @_;
# Fix up some values
$req->{'headers'}{'Content-Length'} = 666;
},
wrap => \&HTTP::Request::Generator::as_http_request,
这可能会起作用:
wrap => sub {
my ( $req ) = @_;
# Fix up some values
$req->{'headers'}{'Content-Length'} = 666;
return HTTP::Request::Generator::as_http_request( $req );
},
headers
选项似乎采用 hashrefs 的 arrayref,如下所示:
headers => [
{
"User-Agent" => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)',
"Cookie" => '_abc',
},
],
我想这样做的原因是您可以提供替代的标头集:
headers => [
{
"User-Agent" => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64)',
"Cookie" => '_abc',
},
{
"User-Agent" => 'Mozilla/1.0 (Hoover Vacuum Cleaner)',
"Cookie" => '_def',
},
],
这样,您的请求生成器可以为每个页面生成两个请求,使用不同User-Agent
字符串,或不同的 cookies(因此以不同的用户身份登录),或不同的Accept
标头,等等。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.