在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"); 
}

然后你可以对结果进行排序，例如通过检查$mech->status()

，通过回复代码（404 - Not Found，200 - OK ...）