Как найти текущее значение процесса STDOUT в Perl?

Поможет ли fileno в этой ситуации? Если дочерний элемент закрывает и снова открывает STDOUT, то fileno(STDOUT) будет иметь другое значение в дочернем элементе, чем в родительском.

$ perldoc -f fileno
   fileno FILEHANDLE
           Returns the file descriptor for a filehandle, or undefined if
           the filehandle is not open.  This is mainly useful for
           constructing bitmaps for "select" and low-level POSIX tty-
           handling operations.  If FILEHANDLE is an expression, the value
           is taken as an indirect filehandle, generally its name.

           You can use this to find out whether two handles refer to the
           same underlying descriptor:

               if (fileno(THIS) == fileno(THAT)) {
                   print "THIS and THAT are dups\n";
               }

           (Filehandles connected to memory objects via new features of
           "open" may return undefined even though they are open.)

Если ваши разветвленные дочерние элементы также являются программами Perl, вы можете «выбрать STDOUT» и установить $| чтобы пометить его как небуферизованный прямо перед тем, как произойдет какое-либо ведение журнала.

Это было связано с тем, что обработчик POE::Filter::Reference StdOut Handler отправлял выходные данные дочерним процессом в формате, отличном от ожидаемого.

Удалил фильтр - тогда я мог видеть, что он отправляет, и это позволило мне исправить проблему.

Проблема заключалась в том, что дочерний процесс извергал содержимое своих подпроцессов STDOUT обратно по соединению сокета с обработчиком StdOut.

Саймон

Вы уверены, что это не проблема с буферизацией? Я не знаком с POE, поэтому я не знаю, как вы это расследуете или исправите, но я подозреваю, что это стоит проверить, по крайней мере.