如何将 Perl 的 system() 的输出重定向到文件句柄？

Question

通过 Perl 中的 open 命令，您可以使用文件句柄。但是，我无法使用 Perl 中的 open 命令取回退出代码。

使用 Perl 中的 system 命令，我可以取回程序的退出代码我正在跑步。但是我只想将 STDOUT 重定向到某个文件句柄（没有 stderr）。

我的标准输出将是键值对的逐行输出，我想将其插入到 perl 中的 mao 中。这就是为什么我只想从 Perl 中的 Java 程序重定向我的标准输出。这可能吗？

注意：如果出现错误，错误将打印到 stderr。一种可能性是检查是否有任何内容打印到 stderr，以便我可以完全执行 Perl 脚本。

Answer 1

按照规范，如果您试图获取分叉进程的文本输出，我的理解是这就是反引号的用途。如果您还需要退出状态，可以随后使用 $? 特殊变量进行检查，例如：

open my $fh, '>', "output.txt" or die $!;
print {$fh} `echo "Hello!"`;
print "Return code: $?\n";

反引号中命令的输出到 STDERR 不会被捕获，而是直接写入调用它的 Perl 程序中的 STDERR。

Answer 2

您可能需要查看 IPC::System::Simple - - 它为您提供了许多选项来执行外部命令、捕获其输出和返回值，以及如果返回错误结果则可选择死亡。

Answer 3

这是实现这一目标的方法之一。

open my $fh, '>', $file;
defined(my $pid = fork) or die "fork: $!";
if (!$pid) {
    open STDOUT, '>&', $fh;
    exec($command, @args);
}
waitpid $pid, 0;
print $? == 0 ? "ok\n" : "nok\n";

Answer 4

在 -| 模式下使用 open。当您关闭文件句柄时，退出状态将为$?。

open my $fh, '-|', "$command";  # older version:  open my $fh, "$command |";
my @command_output = <$fh>;
close $fh;
my $command_status = $?;

来自 perldoc -f close

如果文件句柄来自管道打开，则“close”将
如果其他系统调用之一另外返回 false
所涉及的失败，或者程序以非零状态退出。
（如果唯一的问题是程序以非零值退出，$!
将被设置为 0。）关闭管道也会等待进程
在管道上执行以完成，以防万一您想查看
之后管道的输出，并隐式地放置出口
该命令的状态值放入 $? 中并且
“${^CHILD_ERROR_NATIVE}”。