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

Question

我一直在尝试使用perl www :: Mechanize创建一个程序，该程序将跟随网页上的所有链接，然后检查每个链接以查看是否有任何一个返回401响应（使用mech-＆gt;状态等）

如果有人可以向我展示一个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中的一个数字是否等于另一个数字！