perl - Perl WWW::Mechanize foreach 循环跟随链接并查看它们是否给出 401 响应

Question

我一直在尝试使用 perl www::Mechanize 创建一个程序，该程序将跟踪网页上的所有链接，然后检查每个链接以查看其中是否有任何返回 401 响应（使用 mech->status 等等)

如果有人可以向我展示一个 perl www::Mechanize 程序来做到这一点，那就太好了。

我尝试了多种方法，但似乎无法使其正常工作。

我对 perl www::Mechanize 相当有经验，并且已经用它做了更复杂的事情，但无法让它跟随 foreach 循环中的每个链接，看看它们是否给出 401 响应头。

非常感谢您的帮助，谢谢CM

Answer 1

foreach my $link ( $mech->find_all_links() ) {

    $mech->follow_link($link);
    if ( $mech->status() == 401 ) {

        say "401 status found";
    }
}

在 Perl 中，您需要使用==而不是=来检查一个数字是否等于另一个数字！