LinuxのPerlのsysreadオーバーヘッド

Question

私は、TCPソケット上で固定長（44バイト）のメッセージを受け取るネットワークデーモンを持っています。

私はsysreadで読んでいるはずのバイト単位の最適な長さを判断しようとしています。私はもちろん44バイトのsysreadを行うループを行うことができますが、私は最適なサイズを考え出したいと思います。

substrを実行するために1メガバイト分のデータがないという利点がありますが、何千ものsysread呼び出しを行うと速度が遅くなることもわかります。

公衆インターネット経由でsysreadを実行するための推奨サイズはありますか？

編集： スクリプトは、44バイトのメッセージの束を取得し、キューに入れられます。

Answer 1

大きい方が良いです！ sysreadは、使用可能なバイトがすぐに返されます。

メッセージ全体が保証されることは決してないし、複数のメッセージを持つことは決して保証されないので、Perl側でループする必要があります。 Perl側では既にループがあるので、不要なシステムコールを回避するために、できるだけ多くのデータをシステムから一度に取得することもできます。

use constant READ_SIZE => 65*1024; 

my $buf = ''; 
while (1) { 
    my $rv = sysread($fh, $buf, READ_SIZE, length($buf)); 
    die if !defined($rv); 
    last if !$rv; 

    while ($buf =~ s/^(.{44})//s) { 
     my $msg = $1; 
     process_msg($msg); 
    } 
} 

サイズを選んで$bufのサイズを選んでください。頻繁にREAD_SIZEに近づく場合は、READ_SIZEを増やしてください。

Answer 2

システムコールは、送信されないバイトをコピーしません。あなたが44バイトのメッセージを持っているなら、perlは常に44バイトの文字列を返します。あなたが提供するサイズは最大値に過ぎず、カーネルに提供されるバッファのサイズを決めるために使われます。 44バイトを超える値を指定すると、複数のメッセージがキューに入れられている場合、それらをすべて単一のシステムコールで取得することができます。

Answer 3

私はオーバーヘッドがどれくらいのものかを確かめていませんが、一方が他のものより速い場合は測定できますが、晴れた青空からサイズを試してみると、まず4092バイトで終わります。それは処理するために最大93のメッセージを与え、それは魔法の4Kbのサイズの下にあります。これは始めるのが良い場所のようです。

プログラムが実行されているシステムでpage sizeが見つかり、それに応じて調整することができます。私はint(PAGE_SIZE/MESSAGE_SIZE)で始まり、それが各メッセージに対して1つよりもsysreadを実行するかどうかを確認します。一方

、 perl uses 8KB buffers by defaultは：

192 /* The default buffer size for the perlio buffering layer */ 
193 #ifndef PERLIOBUF_DEFAULT_BUFSIZ 
194 #define PERLIOBUF_DEFAULT_BUFSIZ (BUFSIZ > 8192 ? BUFSIZ : 8192) 
195 #endif 

またdiscussion that led to the change有益を見つけるかもしれません。