如何从Perl脚本中运行Perl脚本？

执行外部命令时，包括其他Perl程序，确定它们是否真正运行可能相当困难。检查$？可以留下持久的精神伤疤，所以我更喜欢使用IPC::System::Simple(可从CPAN获得)：

use strict;
use warnings;
use IPC::System::Simple qw(system capture);

# Run a command,wait until it finishes,and make sure it works.
# Output from this program goes directly to STDOUT,and it can take input
# from your STDIN if required.
system($^X,"yourscript.pl",@ARGS);

# Run a command,and make sure it works.
# The output of this command is captured into $results.
my $results = capture($^X,@ARGS);

在上述两个示例中，您希望传递给外部程序的任何参数都可以转到@ARGS。在上述两个示例中也避免了shell，这样可以提供较小的速度优势，并避免涉及shell元字符的任何不必要的交互。上面的代码也期望你的第二个程序返回一个零退出值来表示成功;如果不是这样，您可以指定允许的退出值的另外的第一个参数：

# Both of these commands allow an exit value of 0,1 or 2 to be considered
 # a successful execution of the command.

 system( [0,1,2],$^X,@ARGS );
 # OR
 capture( [0,2,@ARGS );

如果您有一个长期运行的过程，并且您希望在生成数据时处理其数据，那么您可能需要一个管道打开，或者是CPAN中更重的IPC模块之一。

说完所有这一切，任何时候你需要从Perl调用另一个Perl程序，你可能希望考虑如果使用模块是一个更好的选择。开始另一个程序在启动成本和在进程之间移动数据的I / O成本方面承担了相当多的间接费用。它也显着增加了错误处理的难度。如果您可以将外部程序转换为模块，您可能会发现它简化了整体设计。

祝一切顺利，

保罗