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 中检查一个数字是否等于另一个！