Loop in Perl - с LWP :: UserAgent

Question

Здесь код, который необходимо построить в цикле, чтобы заставить USER-Agent перебирать над связкой целей.

for my $i (1..10000) { 
    my $request = HTTP::Request->new(GET => 
sprintf("http://www.example.com,%d", $i)); 

Правильно ли это итерация? Мне нравится слышать от вас ..., чтобы получить стартовую точку ...

Answer 1

Вместо этого вы можете использовать WWW::Mechanize, что является удобным подклассом для LWP :: Module. Для того, что вы хотите сделать, код может выглядеть так:

foreach my $i (1..1000) 
{ 
    #$mech is a object for WWW::Mechanize 
    $mech->get("http://yourtarget.com/whateveryouwant"); 
} 

Тогда вы можете сортировать результаты, например. по ответному коду (404 - Not Found, 200 - OK ...), проверив $mech->status()