Скопируйте содержимое окна cmd.exe в Windows, используя Perl

Question

Я пытаюсь скопировать содержимое cmd.exe в текстовый файл, используя perl в windows. Есть ли простой способ сделать это?

Answer 1

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

Answer 2

Вы выполнили задачу в окне консоли, и теперь вам нужно скопировать эти строки?Я не уверен, что есть способ сделать это.

Если вы еще этого не сделали, вы можете использовать Win32 :: Console , чтобы создать окно консоли, а также читать и писатьв это окно консоли.

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

system("command args > log");

& # x20;