【Chapter5】一些UserAgent

【UserAgent属性/方法东东】

第一个重要的attributes是Agent的等待时间，或者称作超时时间

例5-1 修改UserAgent默认时间，默认时间为180s，修改为10s

#!usr/bin/perl -w
use LWP::UserAgent;

my $browser=LWP::UserAgent->new();
$oldval=$browser->timeout();
$browser->timeout(10);
print "Changed timeout from $oldval to 10/n";

 

打印出来为：

 

还可以打印其他属性。默认属性里面有值的只有，timeout是180s；agent是libwww-perl/5.837(我的版本哈)；parse_head为1；

例5-2 打印属性requests_redirectable。

#!usr/bin/perl -w
use LWP::UserAgent;

my $browser=LWP::UserAgent->new();
my $a=$browser->requests_redirectable;
#$browser->timeout(10);
print "$a->[0]/n,$a->[1]/n";

 

打印出来是

 

conn_cache是说连接数缓冲区大小的。默认为undef。
需要这样设置
use LWP::ConnCache;
$cache = $browser->conn_cache(LWP::ConnCache->new( ));
$browser->conn_cache->total_capacity(10);

如果接受所有的连接，那么不设置，或者设置为undef。
$browser->conn_cache->total_capacity(undef);

【UserAgent的其他属性/方法】
1、UserAgent属性代理和cookie_jar可以任意设置代理和cookie。详细内容卖个关子。
设置大概是：
$browser->agent("Mozilla/4.76 [en] (Windows NT 5.0; U)");#设置代理
$browser->cookie_jar(HTTP::Cookies->new(
  'file' => $some_file, 'autosave' => 1
));#用文件$some_file来设置cookie

2、protocols_forbidden和protocols_allowed用来设置agent使用的协议，允许还是不允许。这样设置：
$browser->protocols_forbidden(["ftp"]);或者
$browser->protocols_allowed(["ftp"]);
is_protocol_supported()方法用来检查是否支持。是的话返回true；否则false
3、request_redirectable()方法控制agent用何种方法转向；默认列表只有GET和HEAD.但可以往列表里面加。如下：
push @{$browser->requests_redirectable}, 'POST';
#往列表里面加POST方法；告诉LWP在POST请求发送后如果发生重新定向就自动跟随
$aref = $browser->requests_redirectable([/@methods]);(这个编辑面板居然没有右斜杠)