Foro - Perl en Español

por **jcarranza** » 2010-05-19 01:35 @108

¡Hola!

¿Hay alguna forma de inicializar por código el ancho y el alto de la ventana MSDOS donde ejecuto los scripts Perl?

¡¡¡Saludos!!!

Que yo sepa, solo se podría hacer si, al arrancar el Windows, se hubiera especificado la carga del controlador ANSI.SYS, y luego, dentro del programa, especificar la resolución de pantalla por medio de la secuencia de escape correspondiente. Por ejemplo, print "\e[=3h"; .

Pero... esto es teoría.

En la práctica, lo que se hace es modificar las propiedades de la ventana MSDOS en el menú contextual que aparece en la esquina superior izquierda de la ventana.

por **explorer** » 2010-05-19 06:18 @304

Ya lo encontré. Tienes que usar el módulo Win32::Console, que viene instalado por defecto (al menos, en ActiveState).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!Perl
use Win32::Console;
 
my $CONSOLE = new Win32::Console(STD_OUTPUT_HANDLE);
 
$CONSOLE->Cls();    # Borrar pantalla
 
($x, $y) = $CONSOLE->Size();   # Obtenemos el tamaño actual de pantalla
 
print "[$x];[$y]\n";           # y lo mostramos
print "Pulsa Enter:"; <>;
 
#$CONSOLE->Size(80, 25);       # Tamaño del buffer de pantalla
 
$CONSOLE->Window(1, 0, 0, 80, 50);   # Tamaño y posición de la ventana
print "Pulsa Enter:"; <>;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **jcarranza** » 2010-05-20 04:35 @233

¡¡¡Perfecto, muchas gracias, explorer!!!

Si se quiere mirar más información sobre este módulo, aquí os dejo el link:
http://search.cpan.org/~jdb/Win32-Console-0.09/Console.pm

¡¡¡saludos!!!

Foro - Perl en Español

Dimensiones de la ventana de MSDOS

Dimensiones de la ventana de MSDOS

Publicidad

Re: Dimensiones de la ventana de MSDOS

Re: Dimensiones de la ventana de MSDOS

Re: Dimensiones de la ventana de MSDOS

¿Quién está conectado?