Perl：open3 但对于 n 个文件描述符

Question

open3 只接受 STDIN、STDOUT 和 STDERR。如果正在运行的命令使用其他文件描述符，则 open3 无法捕获这些：

echo foo # Can be captured
echo foo >&2 # Can be catured
echo foo >&3 # Cannot be captured (with open3)

我已经研究过 IPC::Run::run 似乎能够处理这个问题，但我也需要 PID，但我发现 IPC::Run::run 没有办法给我。

是否有一个 openN 或 IPC::Run::run 方法可以给我 PID？

背景

这是用于 GNU Parallel 的可能扩展，因此您可以这样做：

parallel 'echo {} start >&3;sleep 10;echo {} end >&3' ::: a b c 3>out.file

无需混合来自不同作业的输出。 GNU Parallel 需要跟踪每个 pid - 尤其是在使用 --keep-order 时。

Answer 1

fd3 已经存在，所以你需要做的就是确保孩子继承它。由于它是继承的，因此您根本不需要做任何事情。

$ perl -e'
   system "echo foo >&3";
' 3>bar

$ cat bar
foo

但是如果你想确保它是继承的，你可以使用下面的

$ perl -e'
   use Fcntl qw( F_GETFD F_SETFD FD_CLOEXEC );
   if (open(my $fh, ">&=", 3)) {
      my $flags = fcntl($fh, F_GETFD, 0)
         or die $!;
      fcntl($fh, F_SETFD, $flags & ~FD_CLOEXEC)
         or die $!;
   }

   system "echo foo >&3";
' 3>bar

$ cat bar
foo