Цикл в 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 - Не найдено, 200 - ОК ...), отметив $mech->status()