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

【问题标题】：get output value from one perl to another从一个 perl 获取输出值到另一个
【发布时间】：2013-05-25 17:40:15
【问题描述】：

我有一个 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";

知道用户名.pl

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

print "secondoutput\n";

print "thirdoutput\n";

我在上面编辑了答案。

【问题讨论】：

看看这个问题：stackoverflow.com/questions/364842/…
@arkascha，该链接对我的问题有何帮助？我想从一个文件输出到另一个文件。
抱歉，您是否费心阅读该问题的第一个答案？它是关于脚本输出到标准输出以及如何捕获它。
您的 shebang 行中缺少 #。很可能是复制粘贴错误。否则，这对我有用。
@arkascha，我确实看过第一个答案，但我的问题是如何传递输出？答案显示了如何捕获它们，而不是传递它们。

标签： perl output

【解决方案1】：

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

这会引起您的主要问题。

$output 应该是$perloutput

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

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

【讨论】：