Perl的HTTP模块

内容介绍主要来自：http://search.cpan.org/~gaas/HTTP-Message-6.06/lib/HTTP/Request.pm
1. 在Perl中的HTTP请求包含三个模块：

LWP::UserAgent, HTTP::Request, HTTP::Response.
后两个继承了HTTP::Headers和HTTP::Message。HTTP::Headers提供了添加响应头、获得响应头的方法。HTTP::Message提供了content方法，对于Request对象，如果Request是post请求，则此方法用于设置http的请求内容；对于Response方法，此方法会返回http请求的内容。

2. 请求的过程：

1> 先对Request对象进行设置；
2> 执行http请求方法：$response = $ua->request($request);
3> 从Response对象中获得http相应的内容。

3. 示例：
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
#设置UserAgent对象
$ua = new LWP::UserAgent;
$ua->agent( "SGMS/2.0". $ua->agent );
$ua->timeout(5);
#设置request对象
$req = new HTTP::Request GET => "http://www.baidu.com";
$req->content("wd=http");
#http请求
$res = $ua->request($req);
#获得http相应内容
print $res->content."\n";
print $res->as_string."\n";