リミットソケットは、次の操作を実行しているPerlの

Question

私はperlで簡単なスクリプトをプログラミングしてるにおける毎秒のパケットの具体的なammountを送信するために：特定のサーバーへのソケット

1. オープン
2. は、データを1行ずつ読み込み、
3. それは完璧に動作し、長すぎるかもしれないので、私は全体のコードを報告していないオープンソケット

を使用してデータを送信し、whileループを使用しての大きなファイルから。私が達成する必要があるのは、毎秒大量のパケットを送信することです。たとえば、1秒あたり100パケットを送信するように制限したいとします。これは、ループが非常に速く、いつかサーバーが混雑するためです。 私が必要としているのは、この種の仕組みをどのように実装できるのかということです。毎秒 "X"パケットを送信するコードをwhileループに挿入する方法はわかりません。実際のコードは次のようになります。

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を使用します。