的perl得到输出中的文件，STDERR和STDOUT

Question

在下面的命令，我想wrtie输出到一个文件，也输出变量得到STDOUT，STDERR沿着我怎么能做到这一点

 my($output) = `ssh login.com ls /tmp > filename 2>&1`; 
     print "\n=========$output============"; 

。

Answer 1

一旦完成该文件，就会捕获该文件。

my ($output) = `ssh login.com ls /tmp/ > filename 2>&1;cat filename` 
print "\n=========$output============"; 

编辑：如果保持退出代码是很重要的（我认为在https://stackoverflow.com/a/9784064/1137055的答案都比较齐全，少哈克）：

`ssh login.com ls /tmp/ > filename 2>&1`; # run command and output to a file 
my $code = $?; 
my $output = { local $/ = undef; open FILE, "file" or die "Couldn't open file: $!"; $string = <FILE>; close FILE; } # "slurp" the file in using perl 
print "\n=========$output============$code========\n"; 

或更少的理想的解决方案：

`ssh login.com ls /tmp/ > filename 2>&1`; # run command and output to a file 
my $code = $?; 
my $output = `cat filename` # read the file by shell 
print "\n=========$output============$code========\n"; 

Answer 2

您应该使用CPAN的SSH :: *模块之一来执行此操作。或者你可以使用“tee”shell命令。

my $output = `ssh login.com ls /tmp/ 2>&1 | tee filename` 

Answer 3

捕获结果并让Perl将其打印到文件中更明显吗？

use strict; 
use warnings; 

use Capture::Tiny qw/capture_merged/; 

open my $log, '>', 'filename'; 

$|++; #no buffering 
my ($result, $status) = capture_merged { system 'ssh login.com ls /tmp' }; 

print "Result: $result"; 
print $log $result;