Perl-181006-curl get 測試

Problems

Perl 模擬 Curl 操作

Solution

#/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $url = "http://www.baidu.com";
my $agent=LWP::UserAgent->new();

my $request = HTTP::Request->new(GET=>$url);
my $response=$agent->request($request);
print $response->content();
print $response->status_line();
print $response->header('Content-Type');

Reference

1. perl 和curl 發送json數據例子
2. perl http模塊總結
3. Perl的WWW:Curl與LWP模塊