Perl 发送http 请求。

来源：互联网发布：企业数据管理软件编辑：程序博客网时间：2024/05/18 19:19

HTTP GET Perl example

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
useLWP::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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
useLWP::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')
对应的参数格式是不一样的。

0 0