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

Question

我有一个 perl 文件，它又调用另一个 perl 文件。我期待第二个 perl 文件的输出。我将如何获得输出？这是我的示例代码的样子。

日期时间测试.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";

知道用户名.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";