LWP::UserAgent 讀取超時，能否不退出程序？

3P用戶

調(diào)用mirror()復(fù)制遠端服務(wù)器上的文件，文件有很多個，有些文件較大，讀取時會超時，LWP模塊打印一串提示后程序就退出了。

我想實現(xiàn)的是，如果發(fā)生超時或者任何讀取不成功時，自動轉(zhuǎn)到讀取下一個文件而不退出，該怎么做呢？

超時時間和加載文件大小都作了設(shè)置，有些文件始終加載不過來，或遲或早必定超時。

3P用戶

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

#這樣做了檢查，還是不行。

iamlimeng

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

設(shè)一下超時試試！

3P用戶

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

設(shè)置了超時還是不行，一旦發(fā)生超時，模塊就會調(diào)用die函數(shù)退出。

3P用戶

我怒了，直接修改了 UserAgent 模塊代碼，把mirror函數(shù)里的die語句全部改成了warn ，重新定義了一個 UserAgentNew ，用這模塊貌似可以工作了~

cdtits

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

復(fù)制代碼

sjdy521

回復(fù) 6# cdtits


    new里有use_eval這個選項么。

sjdy521

回復(fù) 5# 3P用戶


    perl里的異常捕獲都忘記了？eval是用來干什么的。。

cdtits

回復(fù) 7# sjdy521


    說明文檔里面沒有，但新版程序里面有的

3P用戶

sjdy521 發(fā)表于 2012-07-26 17:56
回復(fù) 5# 3P用戶

多謝，多謝指教。