LWP::UserAgent 读取超时，能否不退出程序？

3P用户

调用mirror()复制远端服务器上的文件，文件有很多个，有些文件较大，读取时会超时，LWP模块打印一串提示后程序就退出了。

我想实现的是，如果发生超时或者任何读取不成功时，自动转到读取下一个文件而不退出，该怎么做呢？

超时时间和加载文件大小都作了设置，有些文件始终加载不过来，或迟或早必定超时。

3P用户

my $res = $agent->mirror($url,$filename);
if( $res->is_error()){
    # ...
}else{
    # ...
}

#这样做了检查，还是不行。

iamlimeng

require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

设一下超时试试！

3P用户

iamlimeng 发表于 2012-07-26 14:58
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

设置了超时还是不行，一旦发生超时，模块就会调用die函数退出。

3P用户

我怒了，直接修改了 UserAgent 模块代码，把mirror函数里的die语句全部改成了warn ，重新定义了一个 UserAgentNew ，用这模块貌似可以工作了~

cdtits

1. $ua = LWP::UserAgent->new(use_eval => 1);

复制代码

sjdy521

回复 6# cdtits


    new里有use_eval这个选项么。

sjdy521

回复 5# 3P用户


    perl里的异常捕获都忘记了？eval是用来干什么的。。

cdtits

回复 7# sjdy521


    说明文档里面没有，但新版程序里面有的

3P用户

sjdy521 发表于 2012-07-26 17:56
回复 5# 3P用户

多谢，多谢指教。