我可以使用另一个 Perl 脚本中间的系统调用从 Perl 脚本获取值吗？

Question

我正在尝试修改其他人编写的脚本，并且希望将我的脚本与他的脚本分开。

我编写的脚本以 print 行结尾，该行输出以空格分隔的所有相关数据。

例如： print "$sap $stuff $more_stuff";

我想在另一个 perl 脚本中间使用这些数据，并且我不确定是否可以对我编写的脚本使用系统调用。

例如： system("./sap_calc.pl $id"); #在这里从 sap_calc.pl 获取打印数据

这可以做到吗？如果没有，我该怎么办？

---

Somewhat related, but not using system():

如何获取一个 Perl 脚本可以查看另一个 Perl 脚本中的变量？

如何将参数从一个 Perl 脚本传递到另一个？

Answer 1

您正在寻找“反引号运算符”。

看看perlop，部分“类似引号的运算符”。

一般来说，捕获程序的输出是这样的：

my $output = `/bin/cmd ...`;

请注意反引号运算符仅捕获 STDOUT。因此，为了捕获所有内容（也包括 STDERR），命令需要附加常用的 shell 重定向“2>&1”。

Answer 2

如果您想使用从其他脚本打印到标准输出的数据，则需要使用 反引号或qx()。

system 只会返回 shell 命令的返回值，不是实际的输出。

尽管执行此操作的正确方法是将实际代码导入到其他脚本中，但可以通过构建 module，或者简单地使用 do 。

作为一般规则，最好使用所有 Perl 解决方案，而不是依赖系统/shell 作为“简化”的方式。

myfile.pl:

sub foo {
    print "Foo";
}
1;

main.pl:

do 'myfile.pl';
foo();

Answer 3

perldoc perlipc

反引号，就像在 shell 中一样，将产生命令的标准输出作为字符串（或数组，取决于上下文）。它们可以更清楚地写成类似引号的 qx 运算符。

@lines = `./sap_calc.pl $id`;
@lines = qx(./sap_calc.pl $id);
$all = `./sap_calc.pl $id`;
$all = qx(./sap_calc.pl $id);

open 还可以用于流式传输，而不是一次性读入内存（如 qx 那样）。这还可以绕过 shell，从而避免各种引用问题。

open my $fh, '-|', './sap_calc.pl', $id;
while (readline $fh) {
    print "read line: $_";
}