Привет,
Есть код, который запускает дочерний процесс и должен перенаправить вывод созданного процесса в файловый дексриптор (может быть сокет). Код выглядит приблизительно так:
use IPC::Open3;
use Symbol qw(gensym);
sub redirect {
my ($command, $handle) = @_;
my ($stderr, $stdin) = (gensym, undef);
# вот тут STDOUT дочернего процесса должен открыться в $handle
my $pid = open3($stdin, $handle, $stderr, @{$command});
waitpid($pid, 0);
die 'Child error' if ($?);
}
Никаких требований к внутренней имплементации нет (IPC::Open3, IPC::Run, Whatever). Подскажите пожалуйста как сделать
