使用 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 创建一个控制台窗口，并读取和写入该控制台窗口。