我正在用perl编写一个简单的脚本,执行以下操作:
打开特定服务器的套接字
使用while循环逐行读取大文件中的数据。
使用打开的套接字发送数据
我不报告整个代码,因为它工作完美,可能太长。我需要完成的是每秒钟发送一批数据包。例如,我想限制每秒发送100个数据包。这是因为循环太快了,有时服务器会出现拥塞。我需要的,是如何(如果)实现这种机制。我不清楚如何将代码插入while循环中,以便每秒钟发送"X“数据包。实际代码如下:
Open Socket
Open file containing data to send
while # Read file line b