小编San*_*agi的帖子

我正在使用LWP从网页下载内容,我想限制等待页面的时间.

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$response = $ua->get("http://XML File");
$content = $response->decoded_content;

问题是服务器偶尔会死锁(我们试图找出原因)并且请求永远不会成功.由于服务器认为它是活动的,它会使套接字连接保持打开状态,因此LWP :: UserAgent的超时值对我们来说没有任何好处.对请求强制执行绝对超时的最佳方法是什么？

每当超时达到极限时,它就会死掉,我无法继续使用脚本!整个脚本处于循环中,它必须按顺序获取XML文件.我真的很想妥善处理这个超时并使脚本继续下一个地址.有谁知道如何做到这一点？谢谢!!

我查了以下链接：

http://search.cpan.org/~giulienk/Audio-Beep-0.11/Beep.pod

我尝试了以下代码：

use Audio::Beep;
$freq=440;
$milliseconds=100;
beep($freq, $milliseconds);

use Audio::Beep;
my $beeper = Audio::Beep->new();

my $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2";
$beeper->play( $music );

但这会出现以下错误：

在 C:\wamp\www\beep.pl 第 5 行找不到工作播放器