perl实例-HTTP::Request模块响应请求与保存输出_Perl

当前位置：首页 > 脚本编程 > Perl > 正文

perl实例代码分享，学习使用 HTTP::Request模块响应请求与保存输出的方法，有需要的朋友参考下。

学习下perl的 HTTP::Request模块的用法。
这里分享一个 HTTP::Request模块的例子。

代码：

复制代码代码示例:

#!/bin/perl -w

use LWP::UserAgent;

$user_agent = new LWP::UserAgent;

$request = new HTTP::Request('GET', 'http://www.jb200.com/index.html');

$response = $user_agent->request($request);

open FILEHANDLE, ">file.txt";

print FILEHANDLE $response->{_content};

close FILEHANDLE;

perl实例-HTTP::Request模块响应请求与保存输出