如何在 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 以检查后台进程何时停止创建输出，在读取$handle 后调用seek $handle,0,1 以清除eof 条件，清理临时文件，但它可以工作。

我已经编写了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();