LWP::UserAgent介绍2

 1 #这个LWP::UserAgent一般要配合其他模块使用
 2 #比如:
 3 #HTTP::Request
 4 #HTTP::Cookie
 5 #HTTP::Respose
 6 #HTTP::Status
 7 #LWP::UserAgent相当于创建一个模拟浏览器
 8
 9 #用以下方式创一个浏览器
10 my $useragent = LWP::UserAgent->new();
11 #一般来说, 我们参数不添加, 到下面要用时再添加, 或让它使用默认值, 它的默认参数如下
12
13 =pod
14            KEY                     DEFAULT
15            -----------             --------------------
16            agent                   "libwww-perl/#.###"
17            from                    undef
18            conn_cache              undef
19            cookie_jar              undef
20            default_headers         HTTP::Headers->new
21            local_address           undef
22            ssl_opts                { verify_hostname => 1 }
23            max_size                undef
24            max_redirect            7
25            parse_head              1
26            protocols_allowed       undef
27            protocols_forbidden     undef
28            requests_redirectable   [‘GET‘, ‘HEAD‘]
29            timeout                 180
30 =cut
31
32 如果你想添加参数, 用这种形式:
33 my $useragent = LWP::UserAgent->new(agent => ‘PERL‘);
34 =pod
35 一般来说, 我们不用配置他上面的参数
36 当然, 如果你想测试一下, 可以用下面的代码打印一下默认值, 但不一定能正常打印
37 =cut
38
39 #!/usr/bin/perl -w
40 use strict;
41 use LWP::UserAgent;
42
43 my $ua = LWP::UserAgent->new();
44 print $ua->agent,"\n";
45 print $ua->from,"\n";
46 print $ua->conn_cache,"\n";
47 print $ua->cookie_jar,"\n";
48 print $ua->default_headers,"\n";
49 print $ua->local_address,"\n";
50 print $ua->ssl_opts,"\n";
51 print $ua->max_size,"\n";
52 print $ua->max_redirect,"\n";
53 print $ua->parse_head,"\n";
54 print $ua->protocols_allowed,"\n";
55 print $ua->protocols_forbidden,"\n";
56 print $ua->requests_redirectable,"\n";
57 print $ua->timeout,"\n";
58
59 #可以看到有一些值是要从其他模块去获得的, 像$ua->default_headers, 要从HTTP::Headers->new去构建
时间: 2024-10-26 00:29:30

LWP::UserAgent介绍2的相关文章

LWP::UserAgent介绍1

1 require LWP::UserAgent; 2 3 my $ua = LWP::UserAgent->new; 4 $ua->timeout(10); 5 $ua->env_proxy; 6 7 my $response = $ua->get('http://search.cpan.org/'); 8 9 if ($response->is_success) { 10 print $response->decoded_content; # or whatever

LWP::UserAgent介绍3 -> cookie设置

1 use LWP::UserAgent; 2 use HTTP::Cookies; 3 4 my $ua = LWP::UserAgent->new; 5 $ua->cookie_jar(HTTP::Cookies->new( 6 file => "cookies.txt", 7 autosave => 1)); 8 9 my $req = HTTP::Request->new(GET => "http://www.example.

perl LWP::UserAgent获取源码与响应

1 #!/usr/bin/perl -w 2 use strict; 3 use LWP::UserAgent; 4 5 my $useragent = new LWP::UserAgent; 6 my $url = 'http://www.baidu.com'; 7 my $request = HTTP::Request->new(GET => $url); 8 my $repose = $useragent->request($request); 9 print $repose-&g

Perl & LWP (第一章) [转]

LWP(Library for World Wide Web in Perl的缩写,意为Perl网络库)是一组Perl的模块和面向对象的类,用以从网站获取数据及从HTML文档中抽取信息.本章将提供LWP组合的主要 背景:描述LWP的特性和历史.运行在哪些平台以及如何下载安装.本章以展示几个LWP程序常见任务的快速演练来结束,诸如获取网页.用规则表达式抽取信 息还有提交表单等. 1.1以网站作为数据资源   大多数站点是为人而建的,用户界面的牛人们为创建在所有浏览器上都很易用且正常显示的HTML代

【perl】LWP module

LWP (short for"Library for World Wide Web in Perl")是一个由多个模块组成,用来获取网络数据的的模块组. [LWP::Simple] 通过调用 get($url) 函数,就可以得到相关网址的内容.如果没有发生错误,get 函数返回此网页,否则,返回 undef. LWP::Simple 在做简单的工作时很方便.但因为不支持 cookies,用户认证,对 HTTP request header (请求标头)的编辑,和 HTTP resons

Nginx中文手册

下载 : Nginx 中文手册 Nginx 常见应用技术指南[Nginx Tips] 第二版 作者:NetSeek http://www.linuxtone.org (IT运维专家网|集群架构|性能调优) 目 录 一. Nginx 基础知识 二. Nginx 安装及调试 三. Nginx Rewrite 四. Nginx Redirect 五. Nginx 目录自动加斜线: 六. Nginx Location 七. Nginx expires 八. Nginx 防盗链 九. Nginx 访问控制

ubuntu下linphone的编译运行

LinPhone是一个IP电话工具,运行于Linux下.它能够让你通过internet来查询朋友的IP,并通过IP给他打电话.下面我会介绍如何在ubuntu下编译运行linphone. 1.前提条件: 已经在ubuntu下配置好android开发环境,详见http://blog.csdn.net/maylian7700/article/details/7538176#,这里不再赘述 2.然后使用git下载linphone-android在命令行里面输入git clone git://git.li

perl登录各种网站的原理与实现

tkorays([email protected]) 小孩子才践行大道理,大人只会讲. 写脚本抓取某个页面内容很简单,但是往往事情没那么简单.有些页面必须是要登录才能查看的,比如你想抓取选课系统中自己的成绩?所以,下面介绍下使用perl登录网站的原理,以及实现. 原理 如果你了解一些http原理的话,这就很好理解了.使用浏览器打开网页无非就是:你发送请求,然后服务器响应,给你所需要的页面内容.当然这些请求和相应都是有一定规律的. 先说浏览器发送请求. 请求常用有POST和GET两种,撇去细节不谈

CentOS6.2 上搭建smokeping

一    介绍smokeping是rrdtool的作者Tobi Oetiker的作品,所以它在图形显示方面有很大优势,也是一个很有特点的opensource工具:多种探测方式,包括fping.echoping.dig.curl等. 二    安装环境 虚拟机版本:    VMware Workstation 8.0.4 build-744019 OS 版本 :    CentOS 6.2 i686 IP 地址:192.168.1.115 三    安装步骤 a.查看系统版本及内核 #######