Perl - Win32 - 如何从另一个进程进行文件句柄的非阻塞读取？

Question

我正在编写一些通过 STDIN 与客户端进程对话的服务器代码。我正在尝试编写一段 perl 代码，用于异步接收来自客户端 STDOUT 的响应。代码的阻塞版本可能如下所示:

sub _read_from_client
{
   my ($file_handle) = @_;
   while (my $line = <$file_handle>) {
      print STDOUT $line;
   }
   return;
}

重要的是，该代码段需要在 Win32 平台上运行。有许多我不感兴趣的 *nix 平台解决方案。我正在使用 ActivePerl 5.10。

Answer 1

This thread在 Perlmonks建议您可以通过这种方式在 Windows 上使用 Perl 使套接字成为非阻塞的:

ioctl($socket, 0x8004667e, 1);

该线程中的更多详细信息和资源