4

我刚刚意识到，PerlIO 层似乎不仅仅（或多或少）轻松地包装了 stdio.h 函数。PerlIO_stdout()如果我尝试使用通过 stdio.h中的函数解析的文件描述符PerlIO_fileno()，则会失败。

例如：

PerlIO* perlStdErr = PerlIO_stderr();
fdStdErrOriginal = PerlIO_fileno(perlStdErr);
relocatedStdErr = dup(fdStdOutOriginal);
_write(relocatedStdErr, "something", 8); //<-- this fails

我已经用 VC10 试过了。嵌入的 perl 程序是从不同的上下文中执行的——因此不可能从执行 relocatedStdErr 写入的上下文中使用 PerlIO。

对于好奇的人：我需要执行一个 perl 脚本并将脚本的 stdout/stderr 的输出转发到日志，同时保持自己在 stdout 上写入的能力。此外，这应该独立于平台（Linux、Windows 控制台应用程序、win32 桌面应用程序）。只是转发 stdout/stderr 在 Win32 桌面应用程序中不起作用，因为没有；） - 您需要使用 perl 的 stdout/stderr。

需要的解决方案：能够在不使用 PerlIO 堆栈的 perlio 派生的文件句柄（或描述符）上进行写入。

编辑 - 我的解决方案：

当 Story Teller 指向 PerlIO_findFILE 时，这就成功了。所以这里是代码的摘录 - 请参阅里面的评论以获取描述：

FILE* stdErrFILE = PerlIO_findFILE(PerlIO_stderr()); //convert to Perl's stderr to stdio FILE handle

fdStdErrOriginal = _fileno(stdErrFILE); //get descriptor using MSVC

if (fdStdErrOriginal >= 0)
{
    relocatedStdErr = _dup(fdStdErrOriginal); //relocate stdErr for external writing using MSVC
    if (relocatedStdErr >= 0)
    {
        if (pipe(fdPipeStdErr) == 0) //create pipe for forwarding stdErr - USE PERL's IO since win32subsystem(non-console) "_pipe" doesn't work
        {
            if (dup2(fdPipeStdErr[1], fdStdErrOriginal) >= 0) //hang pipe on stdErr - USE PERL's IO (since it's created by perl)
            {
                close(fdPipeStdErr[1]); //close the now duplicated writer on stdErr for further usage - USE PERL's IO (since it's created by perl)
                //"StreamForwarder" creates a thread that catches/reads the pipe's input and forwards it to the processStdErrOutput function (using the PerlIO)
                stdErrForwarder = new StreamForwarder(fdPipeStdErr[0], &processStdErrOutput, PerlIO_stderr()); 
                return relocatedStdErr; //return the relocated stdErr to be able to '_write' onto it
            }
        }
    }
}
...
...
    _write(relocatedStdErr, "Hello Stackoverflow!", 20); //that works :)

我实际上不明白的一件有趣的事情是，perl 文档说不需要#define PERLIO_NOT_STDIO 0能够使用PerlIO_findFILE(). 但对我来说，没有它就可以正常工作，而且我更喜欢将 PerlIO 和 stdio 一起使用。这一点我没有弄清楚发生了什么。

4

0 回答 0