如何在 Windows 上进行非阻塞 IPC 读取？

我有一个 Perl 脚本，它使用外部工具 (cleartool) 来收集有关文件列表的信息。我想使用 IPC 来避免为每个文件生成一个新进程：

use IPC::Open2;
my ($cin, $cout);
my $child = open2($cout, $cin, 'cleartool');

返回单行的命令效果很好。例如

print $cin "describe -short $file\n";
my $description = <$cout>;

返回多行的命令让我陷入了一个死胡同，不知道如何使用整个响应而不被阻塞读取挂起：

print $cin "lshistory $file\n";
# read and process $cout...

我尝试通过以下方式设置文件句柄以进行非阻塞读取fcntl:

use Fcntl;
my $flags = '';
fcntl($cout, F_GETFL, $flags);
$flags |= O_NONBLOCK;
fcntl($cout, F_SETFL, $flags);

但 Fcntl 终止并显示消息“您的供应商尚未定义 Fcntl 宏 F_GETFL”。

我尝试使用 IO::Handle 来设置$cout->blocking(0)但这失败了（它返回undef和集$!到“未知错误”）。

我尝试过使用select在尝试读取之前确定是否有可用数据：

my $rfd = '';
vec($rfd, fileno($cout), 1) = 1;
while (select($rfd, undef, undef, 0) >= 0) {
    my $n = read($cout, $buffer, 1024);
    print "Read $n bytes\n";
    # do something with $buffer...
}

但它没有读任何东西就挂了。有谁知道如何使其工作（在 Windows 上）？

select仅适用于套接字 http://perldoc.perl.org/perlport.html#select在Windows中。看起来 IPC::OpenX 使用普通文件句柄，所以你将无法使用select使用它创建的句柄。

如果您不需要 select 提供的超时/活动检测，您可以将句柄设置为非阻塞，只需按正常方式读取或写入。

如果您需要更细致的控制，IPC::Run http://search.cpan.org/perldoc/IPC::Run可能适合你。

您还可以考虑创建一个socketpair并将这些句柄用于您的子进程。较新的 perls（5.8 及更高版本）支持socketpair使用 TCP 套接字在 Windows 上进行模拟。

如果您尝试克隆STDOUT and STDERR对于没有控制台运行的程序（即它是使用 wperl 而不是 perl 启动的），您将无法通过 STDIO 获取数据。

实际上，这对我的几个项目来说都是一个巨大的痛苦。我发现最有效的方法是编写子进程通过 TCP 连接到父服务器。如果您不控制子进程，请查看IPC::Run or socketpair.