LWP::UserAgent介绍2

#这个LWP::UserAgent一般要配合其他模块使用
#比如:
#HTTP::Request
#HTTP::Cookie
#HTTP::Respose
#HTTP::Status
#LWP::UserAgent相当于创建一个模拟浏览器
 
#用以下方式创一个浏览器
my $useragent = LWP::UserAgent->new();
#一般来说， 我们参数不添加, 到下面要用时再添加， 或让它使用默认值， 它的默认参数如下
 
=pod
           KEY                     DEFAULT
           -----------             --------------------
           agent                   "libwww-perl/#.###"
           from                    undef
           conn_cache              undef
           cookie_jar              undef
           default_headers         HTTP::Headers->new
           local_address           undef
           ssl_opts                { verify_hostname => 1 }
           max_size                undef
           max_redirect            7
           parse_head              1
           protocols_allowed       undef
           protocols_forbidden     undef
           requests_redirectable   ['GET', 'HEAD']
           timeout                 180
=cut
 
如果你想添加参数， 用这种形式:
my $useragent = LWP::UserAgent->new(agent => 'PERL');
=pod
一般来说， 我们不用配置他上面的参数
当然， 如果你想测试一下， 可以用下面的代码打印一下默认值， 但不一定能正常打印
=cut
 
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new();
print $ua->agent,"
";
print $ua->from,"
";
print $ua->conn_cache,"
";
print $ua->cookie_jar,"
";
print $ua->default_headers,"
";
print $ua->local_address,"
";
print $ua->ssl_opts,"
";
print $ua->max_size,"
";
print $ua->max_redirect,"
";
print $ua->parse_head,"
";
print $ua->protocols_allowed,"
";
print $ua->protocols_forbidden,"
";
print $ua->requests_redirectable,"
";
print $ua->timeout,"
";
 
#可以看到有一些值是要从其他模块去获得的， 像$ua->default_headers, 要从HTTP::Headers->new去构建