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