Как сделать неблокирующее чтение из канала в Perl?

Question

У меня есть программа, которая зовет другую программу и обработку вывода ребенка, то есть:

my $pid = open($handle, "$commandPath $options |"); 

Теперь я попробовал несколько различных способов, чтобы читать от ручки без блокировки с небольшим или без успеха.

Я нашел похожие вопросы:

• perl-win32-how-to-do-a-non-blocking-read-of-a-filehandle-from-another-process
• why-does-my-perl-sysread-block-when-reading-from-a-socket

Но они страдают от проблем:

• ioctl стабильно падает Perl
• sysread блокировки по 0 байтам (обычное явление)

Я не уверен, как решить эту проблему.

Answer 1

Трубы не такие функциональные в Windows, как в системах Unix-y. Вы не можете использовать 4-аргумент select на них, а емкость по умолчанию минимальна.

Лучше попробуйте обходной путь к сокету или файлу.

$pid = fork(); 
if (defined($pid) && $pid == 0) { 
    exit system("$commandPath $options > $someTemporaryFile"); 
} 
open($handle, "<$someTemporaryFile"); 

Теперь у вас есть еще пару банок червей, чтобы иметь дело с - бег waitpid периодически проверять, когда фоновый процесс прекратил создание вывода, вызывая seek $handle,0,1 очистить состояние ВФ после того, как вы читаете из $handle, уборка временный файл, но он работает.

Я написал модуль Forks::Super для решения таких проблем (и многих других). Для этой проблемы вы использовали бы это как

use Forks::Super; 
my $pid = fork { cmd => "$commandPath $options", child_fh => "out" }; 
my $job = Forks::Super::Job::get($pid); 
while (!$job->is_complete) { 
    @someInputToProcess = $job->read_stdout(); 
    ... process input ... 
    ... optional sleep here so you don't consume CPU waiting for input ... 
} 
waitpid $pid, 0; 
@theLastInputToProcess = $job->read_stdout();