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