从一个perl获取输出值到另一个

Question

我有一个perl文件，后者又调用另一个perl文件。我期待第二个perl文件的输出。我怎样才能获得输出？这是我的示例代码的样子。

datetimetest.pl

!/usr/bin/perl
use DateTime;
print DateTime->now()->strftime("%a, %d %b %Y %H:%M:%S %z");
print "\n";

my @perloutput = `/usr/bin/perl knowusername.pl`;
print "output:$perloutput[0]\n";
print "output 2: $perloutput[1]\n";

print "output 3: $perloutput[2]\n";

knowusername.pl

#!/usr/bin/perl
print $ENV{"LOGNAME"}."\n";

print "secondoutput\n";

print "thirdoutput\n";

我已编辑上面的答案。

Answer 1

首先，始终使用use warnings; use strict;

这会引发你的主要问题。

$output应为$perloutput

print "output:$perloutput[0]\n";
print "output 2: $output[1]\n";

print "output 3: $output[2]\n";