如何在另一个perl脚本中调用一个perl脚本？

Question

我想在主脚本中调用一个perl脚本并打印输出。我不知道该怎么做。请输入任何内容。

abcd.pl是我的主要脚本，并且有几个单独编写的小脚本，我想在主脚本中调用它们并打印输出。

Answer 1

如果你想从另一个脚本中调用潜艇，你可以通过Exporter使用“需要abcd.pl”，

或导出的方法。

要做到我认为你在问什么，使用反引号``（注意这些不是引号）。

像

my $var = `abcd.pl`; 

否则，如果你需要更多的控制（也许通常一个更好的主意），

可以

use IPC::System::Simple; 

这里是CPAN link

Answer 2

文件1.pl：

print "i'm perl\n" 

文件2.pl：

$t = `perl 1.pl`; 
print $t; 

和运行文件2.pl

perl 2.pl 

输出是：

i'm perl 

或使用require：

文件1.pl：

sub test{ 
     print "i'm perl\n"; 
} 
1; 

文件2.pl：

require '1.pl'; 
test(); 

OUTPUT：

i'm perl