perl - 忽略不存在网页的 GET 错误

Question

我WWW::Mechanize用来获取和处理网页。我有一段代码，它循环浏览网页列表。它看起来大约是这样的：

while (<$readFileHandle>) {
    $mech->get("$url");
}

现在，当列表中的某个网页由于某种原因不存在时（没关系），就会出现问题。问题是在这种情况下 - 程序返回错误并退出。错误如下所示：

Error GETing <url> Not Found at <PATH/file.pl> line ...

我怎样才能忽略这种类型的错误？我希望程序继续运行。

Answer 1

您需要为此使用eval {};：

while ( my $url = readline($readFileHandle) ) {
    chomp $url;
    eval {
        $mech->get($url);
    };
    if ($@) {
      #error processing code
    }
}