如何在 Perl 中找到进程 STDOUT 的当前值？

Question

我有一个 POE Perl 程序分叉子项。

它所分叉的子进程会进行日志记录和交互式远程登录到远程设备。 POE 使用 STDOUT 将输出返回到父进程，但由于某种原因它会丢失（不会显示到屏幕或任何文件）。

我推测这是因为 STDOUT 被重定向到某个地方 - 我需要确定在哪里。

我已经使用 (-t STDOUT) 来识别孩子的 STDOUT 不是 TTY。

我还在调用子级之前将子级的 STDOUT 重置为父级的 STDOUT - 但此方法似乎避免了 POE 的事件处理程序，它只是将输出转储到父级 STDOUT。

问）如何识别当前 STDOUT 指向的内容，以便我可以找到我的数据的去向

谢谢

Simon

Answer 1

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.)

Answer 2

如果您的分叉子项也是 Perl 程序，您可以“选择 STDOUT”并设置 $|在任何日志记录发生之前将其标记为未缓冲。

Answer 3

这是由于子进程发送的 POE::Filter::Reference StdOut Handler 的输出格式不符合其预期。

删除过滤器 - 然后可以看到它正在发送的内容，这使我能够纠正问题。

问题是子进程将其子进程 STDOUT 的内容沿着套接字连接喷回到 StdOut 处理程序。

西蒙

Answer 4

您确定这不是缓冲问题吗？我不熟悉 POE，所以我不知道你会如何调查或纠正它，但我怀疑至少值得检查。