為分叉過程重新分配STDOUT

Question

我正在嘗試將派生進程的STDOUT分配給管道。 例如

use warnings;
use strict;
use feature qw(say);
use IO::Select;

my $cmd='sleep 2; echo Hello';
pipe(PREAD, PWRITE);

my $pid=fork();
if ($pid==0) {
  *STDOUT=*PWRITE;
  exec $cmd;
  die "Could not run command \"$cmd\"";
}
my $sel = IO::Select->new( \*PREAD );
say "Waiting for background process..";
while (1) {
  my @ready = $sel->can_read;
  last if (! @ready);
  for my $fh (@ready) {
    say "Processing file descriptor ".($fh->fileno());
    my $line=<$fh>;
    if (! defined $line) {
      say "EOF";
      $sel->remove($fh);
      next;
    }
    chomp($line);
    say "Got line: \"$line\"..";
  }
}
waitpid ($pid,0);
say "Done.";

但是管道PREAD什么也沒有出現; 子級仍然輸出到STDOUT而不是管道。

Answer 1

* STDOUT = * PWRITE;

這只會將perl文件句柄PWRITE分配給perl文件句柄STDOUT，而不會更改操作系統的基礎文件描述符。 為此，您需要將基礎文件描述符從PWRITE復制到fd 1（STDOUT）：

打開（STDOUT， “>＆PWRITE”）;

完成此操作后，將復制PWRITE，現在可以將其作為PWRITE和STDOUT進行訪問。 一個好的樣式是先close(PWRITE)然后使STDOUT成為唯一寫入管道的文件句柄。