shell - Perl 捕获子进程的 STDERR 和 STDOUT

Question

我有正在执行另一个脚本的 Perl 脚本。我如何确保在执行 CONNECTION.pl 时，我将捕获 STDERR 和 STDOUT，以便我可以将其放入父脚本的日志中？下面是来自父脚本的代码:

my $systemcmd ='perl bin/CONNECTION.pl "'.$expanded_sql.'" "'.$tmp_file.'" "'.$fetch.'"';

eval {
  my $rc = system($systemcmd );
};

if ($@) {
  $errmsg = $@;
  croak {message=>$errmsg};
  unlink $tmp_file;
} 

Answer 1

尝试使用 Capture::Tiny将调用包装到 system .

此外，将 Perl 脚本 CONNECTION.pl 更改为模块和 use 可能会更清晰它来自您的脚本，而不是再次调用 perl。