使用perl复制Windows中cmd.exe窗口的内容

Question

我试图在Windows中使用perl将cmd.exe的内容复制到文本文件中。 有没有简单的方法呢？

Answer 1

my $text = `cmd.exe params`;
open my $fh, '>>', 'exec.log';
print $fh $text;
close $fh;

Answer 2

system("command args > log");

Answer 3

我不太习惯使用Windows，但我认为它与从linux可执行文件获取输出相同。

#!/usr/local/bin/perl
# Using strawberry perl
use strict;
use warnings;

my $cmd = 'c:\windows\system32\cmd.exe /?|';
open ( FH, $cmd ) or die "Can't open $cmd: $!";
my $content = do { local $/; <FH>; };
print $content;

Answer 4

您已在控制台窗口中执行了任务，现在需要复制这些行吗？我不确定是否有办法做到这一点。

如果您还没有这样做，可以使用Win32::Console创建一个控制台窗口，并读取和写入该控制台窗口。