Wie kann ich die Größe des cmd.exe-Fensters von meinem Perl-Programm aus einstellen?

Question

Ich habe ein Perl-Skript in Windows ausgeführt, das sehr lange Zeilen anzeigt.

Ich möchte meine Konsole Größe nicht dauerhaft zu beheben. Ich möchte nur, dass es groß ist, falls dieses Skript läuft.

Gibt es eine Möglichkeit, die Größe der Konsole innerhalb des Perl-Skripts zu definieren, das in diesem Fenster ausgeführt wird?

Answer 1

Siehe Win32::Console. Die sample program hat eine Größenanpassung, die auf meinem Windows XP SP3 funktioniert. Ich habe es nirgendwo anders ausprobiert.

Auch die Verwendung einer einfachen GUI, die einfach aus einer Textbox besteht, könnte einfacher sein. Hier

ist eine Adaption des testWindow aus dem Beispielskript:

use strict; use warnings; 

use Win32::Console; 

my $OUT = Win32::Console->new(STD_OUTPUT_HANDLE); 
my $IN = Win32::Console->new(STD_INPUT_HANDLE); 
$IN->Mode(ENABLE_MOUSE_INPUT|ENABLE_WINDOW_INPUT); 

$OUT->Size(180, 200); 
my ($maxx, $maxy) = $OUT->MaxWindow; 

$OUT->Cls; 
$OUT->Cursor(-1, -1, -1, 0); 

$OUT->FillAttr($BG_YELLOW|$FG_BLUE, $maxy * $maxx, 0, 0); 
$OUT->FillChar('X', $maxy*$maxx, 0, 0); 

$OUT->Window(1, 0, 0, $maxx, $maxy); 

while ($maxx>1 and $maxy>1) { 
    $maxx -= 5; 
    $maxy -= 5; 
    $OUT->Window(1, 0, 0, $maxx, $maxy); 
    sleep 1; 
} 

$OUT->Window(1, 0, 80, 50); 
$OUT->Cls; 

Answer 2

Sie können die Konsole Größe eines laufenden Konsole eingestellt mit dem mode Befehl:

mode con lines=50 cols=200 

Die Änderung wird nur bestehen bleiben, bis Das Konsolenfenster ist geschlossen.