小编Tal*_*rth的帖子

Perl LWP:UserAgent如何添加标题?

我是一个新的Perl程序员,试图使用LWP:UserAgent将curl请求转换为Perl脚本。

curl请求示例为:

curl -X GET -H "Authorization: Basic YWRtaW46YWRtaW4=" -H "Cache-Control: no-cache" -H "Postman-Token: eb3955f1-a7b5-65d7-f5c0-808c7aba6cef" "https://10.51.10.26/10/download?startTime=1461698250&endTime=1461698252&cNat=True&cNatShowDst=True&tuplesFile=True&summarizeTuples=False"
Run Code Online (Sandbox Code Playgroud)

和我的PERL等效:

use LWP::UserAgent;
my $browser = LWP::UserAgent->new;
my $url = 'https://10.51.10.26/10/download';
my @headers = (
   "startTime" => $queryStart, 
   "endTime" => $queryEnd, 
   "cNat" => "True", 
   "cNatShowDst" => "False", 
   "tuplesFile" => "False", 
   "summarizeTuples" => "False",
   "Authorization" => "Basic YWRtaW46YWRtaW4",
   "Cache-Control" => "no-cache", 
   "Postman-Token" => "eb3955f1-a7b5-65d7-f5c0-808c7aba6cef", 
);
Run Code Online (Sandbox Code Playgroud)

结果是 - HTTP::Response=HASH(0x27884bc)

这是添加标题的正确方法吗?

perl curl lwp

2
推荐指数
2
解决办法
8128
查看次数

标签 统计

curl ×1

lwp ×1

perl ×1