1

私はperlwww:: Mechanizeを使用してプログラムを作成しようとしています。このプログラムは、Webページ上のすべてのリンクをたどり、それぞれをチェックして、401応答を返すかどうかを確認します（mech-> statusなどを使用）。 ）。

誰かが私にperlwww:: Mechanizeプログラムを見せてくれたら、それは素晴らしいことです。

私はそれを行うためのいくつかの方法を試しましたが、それを正しく動作させることができないようです。

私はperlwww:: Mechanizeの経験が豊富で、もっと複雑なことをしましたが、foreachループ内の各リンクをたどって、401応答ヘッダーが返されるかどうかを確認することはできません。

あなたの助けは大歓迎です、CMに感謝します

4

1 に答える 1

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

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

        say "401 status found";
    }
}

Perlで1つの数値が別の数値と等しいかどうかを確認するには、 =の代わりに==を使用する必要があります。

于 2012-08-30T00:21:14.320 に答える