在 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 - 未找到，200 - 确定...） /代码>