码迷,mamicode.com
首页 > 其他好文 > 详细

perl模块LWP::Simple学习

时间:2015-07-04 18:33:44      阅读:191      评论:0      收藏:0      [点我收藏+]

标签:

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

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

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

    3. 如何获取头(Head)?
    my (b, d, $e) = head(‘http://www.yahoo.com.cn‘);

    如果获取成功head函数将返回五个变量,$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)将返回假。

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $url = shift || "http://www.chinaunix.net";
my $content = get($url);

print $content;

exit 0;
最简单方便的get网页的方法。



perl模块LWP::Simple学习

标签:

原文地址:http://my.oschina.net/u/2314998/blog/474581

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!