Perl LWP::Simple 提供的方法

原创 2015年07月10日 23:01:20
<pre name="code" class="sql"><pre name="code" class="sql"> get($url)
          The get() function will fetch the document identified by the given URL and return it.  It returns "undef" if it fails.  The $url argument can be either a simple string 

or a reference to a URI object.

          You will not be able to examine the response code or response headers (like ’Content-Type’) when you are accessing the web using this function.  If you need that 

information you should use the full OO
          interface (see LWP::UserAgent).


get() 函数会获取给定的URL 的内容, 它返回"undef"如果失败的话, $url 参数可以使一个简单的字符串 或者是一个URL 对象的引用


你不能校验 响应码 或者响应header(like ’Content-Type’),当你接收web使用这个函数的时候,如果你需要这些信息 你需要使用( LWP::UserAgent).

[root@dr-mysql01 test]# cat e1.pl 
use LWP::Simple;
$a=get('http://zjcap.cn');
print "\$a is $a\n";


head($url)
        
Get document headers. Returns the following 5 values if successful: ($content_type, $document_length, $modified_time, $expires, $server)

          
Returns an empty list if it fails.  In scalar context returns TRUE if successful.



得到document 的headers. ,返回 5个值如果称为的话  ($content_type, $document_length, $modified_time, $expires, $server)

取网页返回header 响应header,响应头信息

如果失败返回一个空的列表
[root@dr-mysql01 test]# cat e2.pl 
 use LWP::Simple;
        @content = head("http://www.zjcap.cn/");
        die "Couldn't get it!" unless defined @content;
        print "\@content is @content\n";
[root@dr-mysql01 test]# perl e2.pl 
@content is text/html 27140 1436499350  nginx/1.7.7



getprint($url)

Get and print a document identified by a URL. The document is printed to the selected default filehandle for output (normally STDOUT) as data is received from the network.  If 

the request fails, then the
status code and message are printed on STDERR.  The return value is the HTTP response code.


get和打印 URL 的document, dodument输出到标准输出, 如果请求失败, 会返回状态code到错误输出 返回值是 响应码


</body>
</html>@content is 200
[root@dr-mysql01 test]# cat e3.pl 
 use LWP::Simple;
        @content = getprint("http://www.zjcap.cn/");
        die "Couldn't get it!" unless defined @content;
        print "\@content is @content\n";


[root@dr-mysql01 test]# perl e3.pl 
500 Can't connect to www.zjcap1.cn:80 (connect: Connection timed out) <URL:http://www.zjcap1.cn/>
@content is 500
You have mail in /var/spool/mail/root





返回状态码:

[root@master test]# cat 1.pl 
 use LWP::Simple;
my $code = getstore('http://zjcap.cn','a.txt');
print "\$code is $code\n";

[root@master test]# perl 1.pl 
$code is 200



根据返回码判断:

[root@master test]# cat 1.pl 
 use LWP::Simple;
my $code = getstore('http://zjcap.cn','a.txt');
print "\$code is $code\n";
if (is_success($code)){print "can open\n"}
else{print "error\n"};
[root@master test]# perl 1.pl 
$code is 200
can open
[root@master test]# vi 1.pl 
[root@master test]# cat 1.pl 
 use LWP::Simple;
my $code = getstore('http://zjcap.cn1','a.txt');
print "\$code is $code\n";
if (is_success($code)){print "can open\n"}
else{print "error\n"};
[root@master test]# perl 1.pl 
$code is 500
error




                    

相关文章推荐

【perl】使用LWP获取带cookie验证的HTTPS网页

最近想到公司网站下一些文档,结果网站上做了下载总大小限制,没办法只好写个脚本来获取。               运行环境1:Windows XP     StrawberryPerl 5.10 ...
  • ace_fei
  • ace_fei
  • 2012年02月16日 15:16
  • 5075

LWP(Library for WWW in Perl)的基本使用

LWP (“Library for WWW in Perl” 的缩写) 是一个由多个模块组成,用来获取网络数据的的模块组。 和很多 Perl 的模块一样。每一个 LWP 模块都自带详细的文档,做为对这...
  • ace_fei
  • ace_fei
  • 2012年02月14日 16:39
  • 1228

perl之LWP

http://apps.hi.baidu.com/share/detail/16886140 LWP( Library for Web access in Perl) 能做到什么? 1. 使...

perl lwp文档

  • 2008年12月26日 17:29
  • 657KB
  • 下载

perl&amp;lwp.pdf

  • 2010年06月16日 13:32
  • 3.02MB
  • 下载

perl-lwp笔记

perl的LWP模块介绍 一 LWP::Simple 功能 1. 如何在Perl中使用该模块? use LWP::Simple; 2. 如何获取一个页面内容? my $con...

perl中LWP与WEB的基本使用

perl中LWP与WEB的基本使用 取自 PerlChina.org - wiki LWP 与 WEB 的基本使用 翻 译:qiang 审 校:klaus 出 处:中国 Perl 协会 ...

Perl to get http page with LWP NTLM authentication

1. Make sure the correct Authen::NTLM module written byMark Bush installed. 2. Make sure the module...

perl的LWP模块简单介绍

一 LWP::Simple 功能 1. 如何在Perl中使用该模块? use LWP::Simple; 2. 如何获取一个页面内容? my $content...
  • cnki_ok
  • cnki_ok
  • 2014年08月19日 10:13
  • 509

Perl-LWP文档

原文:http://www.perl.com/pub/a/2002/08/20/perlandlwp.html  版权信息有点多,其它的我写在最后。  我觉得这个Perl的LWP文档挺不错的,所以...
  • cike14
  • cike14
  • 2014年04月27日 13:05
  • 431
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Perl LWP::Simple 提供的方法
举报原因:
原因补充:

(最多只允许输入30个字)