Очистка буфера Perl

Question

У меня есть два отдельных сценария, и я пытаюсь инициировать выполнение одного сценария (дочернего процесса) из другого скрипта (родительского процесса) с использованием механизма pipe, такого как open ($ fh, '- |', ./monitor.pl ") здесь monitor.pl - это дочерний процесс, так что оба они выполняются асинхронно и одновременно. Выход команд, помещенных внутри цикла while дочернего процесса, записывается в дескриптор трубы непрерывно по этой причине буфер заполняется. Поэтому, пожалуйста, предложите мне механизм и соответствующее местоположение, чтобы очистить буфер таким образом, чтобы дочерний процесс никогда не зависал, когда буфер заполняется.

Answer 1

См. IO::Handle.

Автоматически вровень после написания:

$fh->autoflush(1); 

Flush вручную:

$fh->flush; 

На версиях Perl ниже 5.14 вы также должны загрузить IO :: Handle модуль:

use IO::Handle qw();