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

发布时间：2020-12-15 21:16:10 所属栏目：大数据来源：网络整理

导读：我正在尝试使用Perl的系统函数来捕获输出,以执行并将系统命令的ouptut重定向到文件,但由于某种原因,我没有得到整个输出. 我正在使用以下方法： system("example.exe output.txt"); 这段代码有什么问题,还是有另一种方法可以做同样的事情？解决方法与 MVS’

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

我正在使用以下方法：

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

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

解决方法

与 MVS’s answer相同,但现代且安全.

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') };

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!