Perl WWW :: Mechanize退出503服务不可用

Question

我使用Perl的WWW :: Mechanize将HTTP流量发送到站点。由于发送到站点的HTTP请求，它返回503 Service Unavailable错误。

问题是脚本在收到此错误后死亡。我不希望发生这种情况，而是脚本应该继续执行。我希望它忽略该错误。

$mech=WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');

$mech->get($url);

// code after this does not execute

print $mech->content();

如何配置WWW :: Mechanize忽略HTTP响应代码503并继续执行？

感谢。

Answer 1

my $mech = WWW::Mechanize->new( onerror => undef );

$mech->get($url);
if (!$mech->success()) {
    die("$url: ".$mech->res->status_line());
}

print $mech->content();

将die替换为您想要采取的任何行动。