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

LWP::UserAgent介绍2

时间:2016-12-06 09:39:45      阅读:131      评论:0      收藏:0      [点我收藏+]

标签:tab   str   header   prot   parse   www   lib   use   time   

 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去构建

 

LWP::UserAgent介绍2

标签:tab   str   header   prot   parse   www   lib   use   time   

原文地址:http://www.cnblogs.com/perl6/p/6136218.html

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