从perl调用perl脚本

Question

我有一个perl脚本，它接受以下两个参数，并根据参数调用适当的函数。我从bash调用这个脚本，但我想从perl调用它，可以吗？

/opt/sbin/script.pl --group="value1" --rule="value2";

此外，脚本以我想要读取的返回值退出。

Answer 1

与sh命令等效的Perl命令

/opt/sbin/script.pl --group="value1" --rule="value2"

是

system('/opt/sbin/script.pl', '--group=value1', '--rule=value2');

您也可以使用以下方法在shell中启动该命令，但我会避免这样做：

system(q{/opt/sbin/script.pl --group="value1" --rule="value2"});

就像您在sh中所做的一样，您将不得不进行一些错误检查(无论采用哪种方法)。您可以通过使用use autodie qw( system );来做到这一点。如果您需要更多的灵活性，请检查docs如何“手动”执行。

Answer 2

如果要捕获输出：

$foo = `/opt/sbin/script.pl --group="value1" --rule="value2"`;

如果您想捕获退出状态，但是将script.pl的输出发送到stdout：

$status = system "/opt/sbin/script.pl --group=value1 --rule=value2";

如果您想像从文件中读取它的输出：

open SCRIPT, "/opt/sbin/script.pl --group=value1 --rule=value2 |" or die $!;
while (<SCRIPT>) ...

Answer 3

是。您可以使用system、exec或。

system和exec之间的主要区别是，exec“执行一个命令并永不返回。

系统实例：

system("perl", "foo.pl", "arg");