Perl 发送http 请求。

最新推荐文章于 2023-08-28 09:31:14 发布

转载最新推荐文章于 2023-08-28 09:31:14 发布 · 3.5k 阅读

本文通过Perl脚本示例介绍了如何使用LWP::UserAgent库进行HTTP GET和POST请求，包括设置请求头、添加POST数据及处理响应。

HTTP GET Perl example

use
LWP::UserAgent;
 
my
$ua 
= LWP::UserAgent->new;
 
my
$server_endpoint 
= "http://192.168.1.1:8000/service";
 
# set custom HTTP request header fields
my
$req 
= HTTP::Request->new(GET 
=> $server_endpoint);
$req->header('content-type'
=> 'application/json');
$req->header('x-auth-token'
=> 'kfksj48sdfj4jd9d');
 
my
$resp 
= $ua->request($req);
if
($resp->is_success) {
    my
$message 
= $resp->decoded_content;
    print
"Received reply: $message\n";
}
else
{
    print
"HTTP GET error code: ",
$resp->code,
"\n";
    print
"HTTP GET error message: ",
$resp->message,
"\n";
}

HTTP POST Perl example

use
LWP::UserAgent;
 
my
$ua 
= LWP::UserAgent->new;
 
my
$server_endpoint 
= "http://192.168.1.1:8000/service";
 
# set custom HTTP request header fields
my
$req 
= HTTP::Request->new(POST 
=> $server_endpoint);
$req->header('content-type'
=> 'application/json');
$req->header('x-auth-token'
=> 'kfksj48sdfj4jd9d');
 
# add POST data to HTTP request body
my
$post_data 
= '{ "name": "Dan", "address": "NY" }';
$req->content($post_data);
 
my
$resp 
= $ua->request($req);
if
($resp->is_success) {
    my
$message 
= $resp->decoded_content;
    print
"Received reply: $message\n";
}
else
{
    print
"HTTP POST error code: ",
$resp->code,
"\n";
    print
"HTTP POST error message: ",
$resp->message,
"\n";
}




注意：
参数的传递格式有：
$req->header('Content-Type' => 'application/x-www-form-urlencoded; charset=utf-8');

#$req->header('content-type' => 'application/json');

#$req->content_type('text/html')

对应的参数格式是不一样的。