Открытие трубы и задержки при анализе вывода в 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> 
} 

Я вижу некоторые необъяснимые задержки когда в то время как() называется. Я вижу, что open занял 9-10 мс для запуска (что находится в пределах диапазона), однако я вижу задержку в 200 - 250 мс между сообщениями «После открытия» и «Я внутри цикла».

Кто-нибудь видел что-нибудь подобное раньше? Любая помощь будет оценена по достоинству.

Благодаря Rajib

Answer 1

Это почти наверняка, потому что выход из < команды > в буфер до тех пор, либо буфер не заполнится или процесс завершается

Вы, наверное, можно обойти с помощью unbuffer, что делает вид, что он выводит на терминал

Попробуйте использовать это вместо

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