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 ...
}

Perl While Loop发送HTTP请求

1 个答案: