perl - 在 Perl 中读取 shell 脚本的控制台输出

Question

假设我有一个名为 print_error.sh 的 shell 脚本看起来像这样:

#!/usr/bin/bash

echo "ERROR: Bla bla, yada yada."
exit 1

现在我在一个 Perl 脚本中，调用这个 shell 脚本

system("print_error.sh")

我现在想读取 print_error.sh 的控制台输出并将其写入 Log4perl记录器。

我怎样才能做到这一点？

Answer 1

要么使用反引号:

my $results = `print_error.sh`;

或查看打开:

http://perldoc.perl.org/functions/open.html