限制套接字在Perl中每秒发送特定的数据包数量

Question

我在perl中编写一个简单的脚本来执行以下操作：

1. 打开特定服务器的套接字
2. 使用while循环从大文件中逐行读取数据
3. 使用开放式套接字发送数据

我不会报告整个代码，因为它工作完美且可能太长。我需要完成的是每秒发送一大堆数据包。例如，我想限制每秒发送100个数据包。这是因为循环非常快，有时服务器会进入拥塞状态。 我需要的是，我不知道如何（以及如果）我可以实现这种机制。我不清楚如何在while循环中插入代码来发送＆＃34; X＆＃34;数据包每秒。实际代码如下：

Open Socket
Open file containing data to send
while   # Read file line by line
{
Send data to Server
}

谢谢卢卡斯。

Answer 1

您可能需要检查WWW::Curl并使用CURLOPT_MAX_SEND_SPEED_LARGE来限制输出流量。