-1

別の perl ファイルを呼び出す perl ファイルがあります。2 番目の 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";

上記の回答を編集しました。

4

1 に答える 1

1

まず、いつも使っているuse warnings; use strict;

ここであなたの主な問題をキャッチしたでしょう。

$outputする必要があります$perloutput

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

print "output 3: $output[2]\n";
于 2013-05-30T08:42:23.843 に答える