从系统命令到文本文件捕获输出的最佳方法？

Question

我正在尝试捕获使用Perl system函数执行的输出并将系统命令的ouptut重定向到文件,但由于某种原因我没有得到整个输出.

我正在使用以下方法:

system("example.exe >output.txt");

这段代码有什么问题,还是有另一种方法可以做同样的事情？

Answer 1

与MVS的答案相同,但现代且安全.

use strict;
use warnings;

open (my $file, '>', 'output.txt') or die "Could not open file: $!";
my $output = `example.exe`; 
die "$!" if $?; 
print $file $output;

更轻松

use strict;
use warnings;

use autodie;

open (my $file, '>', 'output.txt');
print $file `example.exe`;

如果你需要STDOUT和STDERR

use strict;
use warnings;

use autodie;
use Capture::Tiny 'capture_merged';

open (my $file, '>', 'output.txt');
print $file capture_merged { system('example.exe') };

Answer 2

使用plain>重定向输出只会捕获STDOUT.如果您还想捕获STDERR,请使用2>&1:

perl -e 'system("dir blablubblelel.txt >out.txt 2>&1");' 

有关更多详细信息,请参阅Perlmonks