Question

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

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

Answer 1

档案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();

输出：

i'm perl

Answer 2

如果您想从其他脚本调用subs，可以使用＆＃39; require abcd.pl＆＃39;，

或通过Exporter导出方法。

要完全按照我的想法做，请使用反引号``（注意这些不是引号）。

喜欢

my $var = `abcd.pl`;

否则，如果您需要更多控制（通常可能是更好的主意），

你可以

use IPC::System::Simple;