7

我有一个程序应该运行一组其他程序并收集它们的输出以进行日志记录。只要有输出到标准输出，一切正常。

这导致了我的两个问题：

  1. 如何在一个文件中同时捕获STDIN和捕获STDERR另一个程序？

  2. 如果根本没有输出（或STDERR只有输出），程序将卡在行上：

    while (<$input>)

如何让程序等待来自另一个运行时间不确定的程序的可能输出，并且在程序完成执行时如果没有输出仍然继续。

这是代码的那部分

my $pid = open (my $input, '-|', "$prog $args")
        or push @errors, "A failute has occurred in $prog $args";
if(not @errors){
    while (<$input>){ #POSSIBLE LOCATION FOR HANG UP IF NO PRINTING IS DONE
        if($input =~ /^END\n$/){
            last;
        }
        print $fh $_;
    }
}
else{
    print $fh "An error has occurred with executing \"$prog $args\"";
}

注意：$fh是我的文件处理程序，用于写入我的日志文件，并@errors用于在我的程序中内部报告错误。

编辑：我在尝试Proc::ReliableSTDOUT路由时遇到的一个问题是它似乎对and有后遗症STDERR，我需要在每次调用运行后修复这些问题。这导致了我的代码中的另一个问题。我正在并行运行，并且对所有线程进行任何更改STDOUT并STDERR影响所有线程（至少使用 Windows）。

IO::CaptureOutput对我来说也有同样的问题，但它试图在内部更正STDOUT和STDERR混乱并导致发生以下错误：

Couldn't remove temp file 'C:\Users\SBLAKE~1\AppData\Local\Temp\m8E3pUGfOS' - Permission denied at C:/Perl/site/lib/IO/CaptureOutput.pm line 82
4

2 回答 2

1

如果您从类似 POSIX 的 shell 启动，则2>&1表示法会将标准错误发送到与标准输出相同的位置：

some-program-to-be-logged 2>&1 | perl logger.pl -o /chosen/log.file

标准输出和标准错误都发送到 Perl 日志记录脚本的标准输入。

记录器脚本中的输入循环将挂起，直到有输入要读取，或者直到管道打开以进行写入的所有进程关闭管道（通常是因为它们退出）。

于 2012-08-12T05:21:01.710 回答
1

看看Proc::Reliable，它似乎是你想要的。

也可以看看：

于 2012-08-08T18:07:17.967 回答