perl - 在 Perl 中循环 - 使用 LWP::UserAgent

Question

这里需要在循环中构建的代码 - 使 USER-Agent 迭代一堆目标。

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

这是迭代的正确方法吗？我喜欢收到您的来信……以获得一个起点……

score 1 · Accepted Answer

只是一个建议，您可能想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()

1 回答 1