如何将打开的TCP套接字作为标准输入和标准输出从Perl传递给Windows应用程序

Question

我正在尝试将来自Perl程序的开放式TCP套接字连接作为stdin和stdout传递给Windows上的外部应用程序，这与Unix世界中的inetd类似。

我尝试过的

1. 套接字使用open或POSIX::dup2并调用exec来“替换” stdin和stdout：

    # $socket is an open TCP socket open STDIN, '<&', $socket or die "Unable to dup stdin: $^E"; open STDOUT, '>&', $socket or die "Unable to dup stdout: $^E"; close $socket; exec($program) or die "Unable to exec $command: $^E"; 

2. 使用IPC::open3 ：

    my $pid = open3( '>&'.$socket->fileno, '<&'.$socket->fileno, '<&'.fileno(STDERR), $program); waitpid $pid, 0; 

在这两种情况下，执行的程序都收到不是套接字（可能是管道？）的东西，这是一个问题，因为它想使用select 。 在Windows上， select仅适用于套接字。

如何将套接字传递给外部应用程序？

顺便说一句，我正在使用Strawberry Perl，而不是ActiveState。

Answer 1

可悲的是，在Windows上您不能总是这样做。 经过巨大的痛苦，我们放弃了实现这一目标的能力。 请参阅此问题（ TCP SOCKET句柄是否可继承吗？ ）以获取解释。

它有可能在A股Windows安装：你必须确保TCP套接字创建不重叠的，这是不是在Winsock函数的默认。 然后可以将其标记为可继承，并将其设置为子进程的stdin / stdout。

但是，由于安装了某些知名的安全产品（防火墙，AV），因此无法执行此操作，因为它们以阻止TCP套接字正确继承的方式挂接TCP堆栈。

您只能真正安全地继承Windows管道，文件句柄等。 为了给孩子提供一个套接字，它必须与父母合作，而不是愚蠢地将其作为stdin接收。 父级可以启动子级，使用WSADuplicateSocket将套接字提供给子级的PID，然后将有关套接字的数据传递给子级（也许通过命名管道传递给子级的stdin）。 然后，子代使用传递的数据重新构造套接字。 因此，如果您愿意对客户端进行重新编程以使其了解其父级，则可以完成此操作。

我不确定如何在Perl上完成此操作，但是请参阅此有趣的示例作为入门。 我想，您必须导入本机WSADuplicateSocket函数，然后自己完成。