Chinaunix首页 | 论坛 | 博客
  • 博客访问: 484947
  • 博文数量: 142
  • 博客积分: 4126
  • 博客等级: 上校
  • 技术积分: 1545
  • 用 户 组: 普通用户
  • 注册时间: 2008-02-22 10:03
文章分类

全部博文(142)

文章存档

2011年(8)

2010年(7)

2009年(64)

2008年(63)

我的朋友

分类:

2008-11-12 17:11:56

LWP::Simple 模块功能简介

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

2. 如何获取一个页面内容?
my $content = get('');

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

3. 如何获取头(Header)?
my (b, d, $e) = header('');

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

4. 如何输出指定页面内容?
my $code = getprint('');

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

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

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

6. 如何同步远程和本地文件?
my $code = mirror('','/path/file.html');

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

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

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

Hua WuQue
Livin' on the Edge(Dalian)CO.Ltd
Room 106, A Bldg. 1 Huoju Road
Hi-Tech Zone, Dalian, China Zip:116023
Tel:86-0411-4753511 Fax:86-0411-4753577
E-mail hanwei@edge-china.com
阅读(734) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~