Comment puis-je définir la taille de la fenêtre cmd.exe à partir de mon programme Perl?

Question

J'ai un script Perl s'exécutant dans Windows, qui s'affiche pour filtrer les très longues lignes. Je ne veux pas fixer définitivement la taille de ma console. Je veux juste que ce soit grand au cas où ce script est en cours d'exécution.

Existe-t-il un moyen de définir la taille de la console à partir du script Perl qui s'exécute dans cette fenêtre?

Answer 1

Voir Win32::Console. Le sample program a une démonstration de redimensionnement qui fonctionne sur mon Windows XP SP3. Je ne l'ai pas essayé ailleurs.

En outre, l'utilisation d'une interface graphique simple consistant simplement en une zone de texte peut être plus facile.

Voici une adaptation de testWindow de l'exemple de script:

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

Vous pouvez définir la taille de la console d'une console en cours d'exécution avec la commande mode:

mode con lines=50 cols=200 

Le changement ne persistera jusqu'à ce que la fenêtre de la console est fermée.