Perl While 循环发送 HTTP 请求

Question

我需要帮助编写一个脚本来发送 25 个请求，然后关闭套接字并启动一个新的。

这是我目前所拥有的：

while ($count<25) {
    $count++;
    die "Could not create socket: $!\n" unless $sock;
    print $sock "GET / HTTP/1.1\r\n";
    print $sock "Host: $host \r\n";
    print $sock "Cookie: $rand \r\n\r\n";
    print while <$sock>;
    close($sock);
};

所以在 25 个请求之后，它会关闭套接字并启动另一个（有点像 goto 命令）。

Answer 1

听起来你有某种（foreach 或 while）循环

while (...) {
   ... Uses $socket ...
}

并且您想将相同的 $socket 用于 25 次通行证，然后切换到新的通行证。因此，只需计算传递次数，如果经过的传递次数可被 25 整除，则更新 $socket。

my $socket;
my $count = 0;
while (...) {
   if (($count++ % 25) == 0) {
      $socket = ...;
   }

   ... Uses $socket ...
}