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

Question

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

如果有人可以向我展示一个 perl www::Mechanize 程序来完成它，那就太好了。

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

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

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

Answer 1

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

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

        say "401 status found";
    }
}

您需要使用 == 而不是 = 检查一个数字是否等于 Perl 中的另一个数字!