perl 自定义请求头

最新推荐文章于 2020-12-14 11:14:13 发布

scan724

最新推荐文章于 2020-12-14 11:14:13 发布

阅读量559

点赞数

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50252751

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

使用LWP::UserAgent模块创建HTTP客户端，并设置包括accept、content-type、apix-key和User-Agent在内的自定义请求头。通过命令行参数获取日期范围，发起GET请求到指定URL，解码响应内容并进行Unicode转义处理。

摘要由CSDN通过智能技术生成

use LWP::UserAgent;
 $ua = LWP::UserAgent->new;
 @header = (
    'accept'=> "application/json",
    'content-type'=> "application/json",
    'apix-key'=> "e7b00871640c49567a37566ccd5c27e9",
    'User-Agent' => "Mozilla/8.0"
    );

$start = $ARGV[0];
$end = $ARGV[1];
$date = $ARGV[2];
$host="http://a.apix.cn/apixlife/ticket/rest?from=$start&to=$end&date=$date";
$request = HTTP::Request->new(GET=>"$host");
$request->header(@header);

$response = $ua->request($request); 
$content= $response->decoded_content;
$content =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg; 
print "\$content is $content\n";