パイプを開いてPerlで出力を解析するのに遅延が発生する

Question

私はPerlを使ってかなり簡単な処理をしようとしています。コードのスニペット：しばらく（）が呼び出されたとき

open(FH,"<command> |") or die "Could not run command .. $!\n"; 

print "After open\n"; 

while(<FH>) 
{ 
    print "I am inside loop\n"; 
    <process..something> 
} 

私はいくつかの不可解な遅延を見ています。私は開いている（範囲内にある）を実行するには9-10ミリメートルを取ることがわかりますが、私は "オープン後"と "私は内部ループです"というメッセージの間に200〜250ミリ秒の遅延が見られます。

誰もこのようなことを見たことがありますか？どんな助けもありがとう。

おかげ ラジブ

Answer 1

<コマンドからの出力>は、バッファがいっぱいになるか、プロセスが

を終了するまで、あなたはおそらくunbufferを使用してこの問題を回避することができますバッファリングされているので、これは、ほぼ確実にこれは端末に出力しているコマンドのふりをします

代わりにこれを試してください

open my $fh, '-|', 'unbuffer <command>' or die "Could not run command: $!\n";