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 模块安装以及抓取xml内容

 因为最近可能要用到web 来交互,所以需要perl  LWP的模块来支持。总的来说,安装lwp比较麻烦,尤其是我试了n次 perl -MCPAN 的方式都没有成功后。之前都是以源码来安装的,因为看到...
  • Aylazhang
  • Aylazhang
  • 2007年07月09日 15:08
  • 2766

LWP::Simple 模块

LWP::Simple(3) User Contributed Perl Documentation LWP::Simple(3) NAME LWP::Sim...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2015年07月07日 14:21
  • 652

LWP::Simple 模块功能简介

1. 如何在Perl中使用该模块? use LWP::Simple; 2. 如何获取一个页面内容? my $content = get(http://www.yahoo.com.cn); get函数把...
  • zll01
  • zll01
  • 2009年09月08日 17:28
  • 713

Perl 中关于 LWP::UserAgent等模块用法

大多数perl关联http模块一般用法
  • herokoking
  • herokoking
  • 2017年06月12日 11:30
  • 922

perl中LWP与WEB的基本使用

perl中LWP与WEB的基本使用 取自 PerlChina.org - wiki LWP 与 WEB 的基本使用 翻 译:qiang 审 校:klaus 出 处:中国 Perl 协会 ...
  • huangliangbo0805
  • huangliangbo0805
  • 2014年10月30日 20:05
  • 704

内核线程、用户线程、LWP

http://www.cnitblog.com/tarius.wu/articles/2277.html 在现代操作系统中,进程支持多线程。进程是资源管理的最小单元;而线程是程序执行的最小单元。...
  • derek_yi
  • derek_yi
  • 2014年09月01日 22:05
  • 543

转载_进程、轻量级进程(LWP)、线程

进程、轻量级进程(LWP)、线程 进程、轻量级进程(LWP)、线程 进程:程序执行体,有生命期,用来分配资源的实体线程:分配CPU的实体。   用户空间实现,一个线程阻塞,所有都阻塞。  ...
  • williamwanglei
  • williamwanglei
  • 2013年08月14日 09:42
  • 5514

perl lwp关闭ssl校验

use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; use HTTP::Response; use Encode; use File::...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年04月12日 14:38
  • 586

perl的LWP模块简单介绍

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

Perl的CPAN和CPANPLUS安装模块介绍

说明: 蓝色字体是终端上输出的文字; 红色字体是我们输入的指令; 先把步骤写上,免得看我下面叙述感动啰嗦: 一 CPAN $cpan cpan>install Tkx ???感觉安装很慢,那就配置...
  • q1241580040
  • q1241580040
  • 2015年08月22日 22:29
  • 712
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Perl LWP::Simple 提供的方法
举报原因:
原因补充:

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