在perl中实现请求http，这里使用用LWP::UserAgent模块来实现。
代码：
复制代码 代码示例:
#!/usr/bin/perl
use LWP::UserAgent;
$url = 'http://192.168.0.112/i_.php';
$user_agency = new LWP::UserAgent;
$request = new HTTP::Request('get',$url);
$response = $user_agency->request($request);
print $response->{_content};
exit;
如果再结合perl 进程与perl读写文件的操作，就可以实现更强的功能了。
