Làm thế nào tôi có thể thiết lập kích thước của cửa sổ cmd.exe từ chương trình Perl của tôi?

Question

Tôi có một tập lệnh Perl đang chạy trong các cửa sổ, hiển thị để hiển thị các dòng rất dài.

Tôi không muốn sửa chữa kích thước bảng điều khiển của mình vĩnh viễn. Tôi chỉ muốn nó lớn trong trường hợp kịch bản này đang chạy.

Có cách nào để xác định kích thước của bảng điều khiển từ bên trong tập lệnh Perl chạy bên trong cửa sổ này không?

Answer 1

Xem Win32::Console. Các sample program có một cuộc biểu tình thay đổi kích cỡ hoạt động trên Windows XP SP3 của tôi. Tôi đã không thử nó ở bất cứ nơi nào khác.

Ngoài ra, việc sử dụng GUI đơn giản chỉ đơn giản là một hộp văn bản có thể dễ dàng hơn.

Đây là một sự thích nghi của testWindow từ kịch bản mẫu:

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

Bạn có thể thiết lập giao diện điều khiển kích thước của một giao diện điều khiển chạy với mode lệnh:

mode con lines=50 cols=200 

Sự thay đổi sẽ chỉ kéo dài cho đến khi cửa sổ giao diện điều khiển được đóng lại.