LWP::Simple 模块功能简介

1. 如何在Perl中使用该模块？ 
use LWP::Simple; 

2. 如何获取一个页面内容？ 
my $content = get('http://www.yahoo.com.cn'); 

get函数把从www.yahoo.com.cn上获取得页面内容全部赋给$content这个变量， 
如果获取失败将返回一个undef的值。 

3. 如何获取头(Header)？ 
my (b, d, $e) = header('http://www.yahoo.com.cn'); 

如果获取成功header函数将返回五个变量，$a-e分别代表内容类型，文档长度，最 
后更新的时间，过期和服务器名称。 

4. 如何输出指定页面内容？ 
my $code = getprint('http://www.yahoo.com.cn'); 

getprint将试图打印www.yahoo.com.cn的内容，然后返回一个状态号，比如成功将 
返回200，文件没有找到将返回404。 

5. 如何把获取的内容保存到一个文件中？ 
my $code = getstore('http://www.yahoo.com.cn', '/path/file.html'); 

getstore将试图把获取的内容保存到第二个参数指定的文件中，返回一个状态号， 
状态号的形式如上。 

6. 如何同步远程和本地文件？ 
my $code = mirror('http://www.yahoo.com.cn','/path/file.html'); 

mirror函数将比较远程和本地文件的一致性，然后返回一个状态号，比如文件相同 
将返回304，如果本地文件同步成功将返回200。 

7. 如何测试返回状态的正确性？ 
is_success($code) 
is_error($code) 

is_success和is_error这两个函数可以传递一个状态号为参数，程序会判断返回的 
是否为成功状态。比如is_success(403)将返回假。

 

****************************************************************

摘自http://www.diybl.com/course/4_webprogram/cgi/perljs/200862/120218.html

****************************************************************