Boucle en Perl - avec LWP :: UserAgent

Question

Voici le code qui doit être construit en boucle - pour que USER-Agent puisse itérer sur un groupe de cibles.

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

Est-ce la bonne méthode pour itérer? J'aimerais avoir de vos nouvelles ... pour obtenir un point de départ ...

Answer 1

Juste une suggestion, vous pouvez utiliser à la place WWW::Mechanize, qui est une sous-classe pratique pour le module LWP ::. Pour ce que vous voulez faire, le code pourrait ressembler à ceci:

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

Ensuite, vous pouvez trier les résultats par ex. par le code de réponse (404 - Non trouvé, 200 - OK ...) en vérifiant $mech->status()