如何在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清除EOF条件你读之后，从$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();