将 STDOUT 和 STDERR 重定向到文件，除了 system() 的标准输出/错误

Question

我正在尝试在 Linux 中运行 Perl 脚本并将所有输出记录到 STDOUT 和 STDERR 到文件中：

open (STDOUT, "| tee -i $transcript_file");
open (STDERR, "| tee -ai $transcript_file");

使用它的脚本大致如下：

1. 创建运行工具的环境。有许多 print、warn 和可能的 die 语句。
2. 运行工具（当前使用system 命令）。这会产生很多我想出现在 STDOUT 上的输出，但不在日志文件中（该工具会创建自己的日志文件）。
3. 分析结果，清理并退出。有许多 print、warn 和可能的 die 语句。

除了我想从日志中排除步骤 2 的输出外，一切正常。有没有简单的方法来实现这一点？

谢谢，

PS：这是我关于 stackoverflow 的第一个问题。如果我还没有这样做，请帮助我正确提问。

Answer 1

我同意 Sobrique 的建议，即使用特殊功能 print_and_log。但是如果你真的想按照你的计划去做，你可以dupSTDOUT和STDERR，将它们重定向到你的日志，然后使用open3运行你的具有复制的原始标准输出和错误文件描述符的工具

use  IPC::Open3;

# dup the old standard output and error 
open(OLDOUT, ">&STDOUT") or die "Can't dup STDOUT: $!\n";
open(OLDERR, ">&STDERR") or die "Can't dup STDERR: $!\n";

# reopen stdout and stderr
open (STDOUT, "|tee $transcript_file") or die "Can't reopen STDOUT: $!\n";
open (STDERR, ">&STDOUT")              or die "Can't reopen STDERR: $!\n";

# print statements now write to log
print "Logging important info: blah!\n";
print STDERR "OOPS!\n";

# run your command; output will go to original stdout
# this will die() instead of returning say -1, so use eval() to catch errors
my $pid = open3(">&OLDOUT", "<&STDIN", ">&OLDERR", $command); 

# wash those dishes....
waitpid( $pid, 0 );

Answer 2

鉴于您要重新分配 STDIN 和 STDOUT，那么简短的回答是否定的。您正在捕获STDOUT 上的所有内容，其中包括您的中间输出。

您可能会关闭/重新打开 STDOUT 以获取您不希望它记录的位。 但我建议您可能要考虑您要完成的工作 - 'print_and_log' 子例程会做您所追求的吗？