如何在Perl中运行外部程序？

Question

我想用Perl脚本来执行C程序。什么输入手动给C的可执行文件，这些应该由我的程序给出..

让我们来看一个简单的程序，它需要输入两个数字。并打印它的总和。 这些值应该由Perl脚本提供。

请通过一些教程指导我，我可以实现同样的目标。如果你想捕捉从C程序的输出在你的Perl脚本

system "my-c-program 1 2"; 

，然后使用反引号或qx// operator：

Answer 1

使用system功能

my $output = `my-c-program 1 2`; 

运行my-c-program 1 2和将标准输出捕获到新的$output变量中。

Answer 2

您可能在反引号引用机制之后执行外部程序并将其stdout作为字符串返回。 例如

$date = `date` 
print $date; 

会在unix中打印“Wed Oct 7 12:50:33 CEST 2009”。然而，出于安全目的，这些论据必须进行脱壳处理，而且在某些情况下这可能会非常棘手 - 在大多数情况下，污染是一种方法。

我建议所有的初学者，直接进入了“系统”命令，直到他们意识到了反引号的安全隐患 - 如果是这种情况你应该采取@戴夫韩丁的建议

对于高级魔法你应该阅读perlipc perldoc。

Answer 3

那么，如果你只是在学习如何在Perl中运行外部程序 - 请为你自己一个忙，忘掉``。

与``的问题是你执行一个带有参数的字符串 - 所以它必须被解析。这可能会导致用户提供参数时出现问题。

如果您100％确定完全控制参数和命令名称，您可以使用``，但对于任何其他情况 - 请考虑使用IPC::Run。

它有点复杂，但它不需要任何参数解析使得更好。另外，您可以完全控制stdin，stdout和stderr执行的程序 - 包括将回调附加到它们！