如何通过perl脚本从控制台将输出重定向到excel文件?

时间:2017-07-05 06:35:42

标签: perl cmd

 #!/usr/bin/perl
 use strict;
 use autodie;
 use Capture::Tiny 'capture_merged';

 my $ID=732636;
 my $User="vispsh1";
 my $Password="monitor1";
  print "viewing item...\n";

 open (my $file, '>', 'output.xls') or die "cannot open file";
 my $mks_cmd="im viewissue --user='$User' --password='$Password' $ID";
 print $file capture_merged { system($mks_cmd)};
 # print $mks_cmd;
 print "Done\n";

这是我的脚本,文件已创建但是,它没有将任何内容重定向到output.xls,我可以使用下面的命令来完成

 C:\perl>perl -w mks.pl > sample.xls

但是,我想通过脚本来完全自动化它! 请帮忙,谢谢。

0 个答案:

没有答案