将 STDERR 重定向到 select（）ed STDOUT

问：

如何将 STDERR 重定向到与我将 STDOUT 编辑到的进程文件句柄相同的进程文件句柄？^[1]select()

1. 这成功地将 STDERR 重定向到 STDOUT（两行都打印到 STDOUT）：

   #!/usr/bin/perl
   
   open( STDERR, '>&', STDOUT );
   
   print "Output to STDOUT\n";
   print STDERR "Output to STDERR (redirected to STDOUT)\n";
   

2. 这成功地将 STDOUT 通过管道传递到寻呼机（在本例中），而 STDERR 仍直接写入终端。（首先看到 STDOUT，分页，退出寻呼机后，您会看到 STDERR 行。less

   #!/usr/bin/perl
   
   open( my $pager, '|-', 'less' );
   select( $pager );
   
   print "Output to STDOUT (redirected to 'less')\n";
   print STDERR "Output to STDERR\n";
   

我想将两者结合起来 - 将 STDERR 通过管道连接到与 STDOUT 相同的寻呼机。

3. 这是行不通的，我得到的结果与 2 中的结果相同）。（有趣的是，如果我再次将脚本输出通过管道传输给 - 如 中 - 输出将在 STDOUT 上组合。但是 STDERR 不会通过脚本本身打开的寻呼机进程。less./testme.pl | less

   #!/usr/bin/perl
   
   open( my $pager, '|-', 'less' );
   select( $pager );
   
   open( STDERR, '>&', STDOUT );
   
   print "Output to STDOUT\n";
   print STDERR "Output to STDERR (gets redirected to STDOUT but not to 'less')\n";
   

4. 这不起作用，STDERR 输出完全消失：

   #!/usr/bin/perl
   
   open( my $pager, '|-', 'less' );
   select( $pager );
   
   open( STDERR, '>', $pager );
   
   print "Output to STDOUT\n";
   print STDERR "Output to STDERR (but does not show up anywhere)\n";
   

如何将 STDERR 重定向到与我将 STDOUT 编辑到的进程文件句柄相同的进程文件句柄？^[1]select()

[1]：在实际程序中，我正在检查调用方是否尚未重定向 STDOUT / STDERR。为了简洁起见，我把这些检查排除在示例之外。

这里应该有问题，我很乐意实现相同的效果 - STDOUT 和 STDERR 通过管道传输到同一个寻呼机进程 - 没有 .select()select()

目标平台包括适用于 Windows 的 Git Bash，这严重限制了其他模块的可用性。一个理想的答案可以在没有 ing 的情况下工作，例如。useIPC::Open