如何从子进程中读取错误？

Question

我有一个 Perl 脚本来调用另一个程序。其中一个部分如下所示：

open(AMPL,"|ampl");
select(AMPL);
printf "option solver cplex;\n";
printf "var x1;\n"
printf "var x2;\n"
printf "minimize z: 3*x1 + 2*x2;\n";
printf "another_command;\n";
printf "data $ARGV[0];\n";
# More printfs
close(AMPL);

如果传递给ampl（即AMPL）的指令不正确，此代码会静默失败。是否可以将失败打印到 STDERR 或以其他方式捕获以中止脚本？

---

编辑：澄清一下，这段代码进入了与 AMPL 解释器的交互会话：

$ ampl
ampl: option solver cplex;
>>> var x1;
>>> var x2;
>>> minimize z: 3*x1 + 2*x2;
>>> another_command;
>>> data foo;

Answer 1

使用模块，例如IPC::Run3，获取调用程序打印到流的所有内容。

use warnings;
use strict;

use IPC::Run3;

my @cmd = ('xargs', '0', 'cat');  # display a file which name is piped in
#my @cmd = ('wc', 'c');            # count characters in the passed string

my $cmd_stdin = shift || $0;      # file name, from cmdline or this script

run3 \@cmd, [$cmd_stdin], \my $out, \my $err;

print $out if $out;  # Whatever was written by command to STDOUT
print $err if $err;  # ... and to STDERR

如果调用的程序没有写入标准流，那么调用者无法控制。

要检查命令本身是否有效，请参阅this post。

---

随着问题更新，将字符串提供给 STDIN 的 AMPL

my @cmd = ('ampl');

my @stdin = ("arg_1\n", "arg_2\n", ..., "data $ARGV[0];\n");

run3 \@cmd, \@stdin, undef, \my $stderr;

语法要求输入是一个数组引用。通过在上面设置undef 将程序的输出留给STDOUT，因为如果它被收集到$out 变量中，它不会实时看到。