Foro - Perl en Español

por **Gisely** » 2008-02-19 14:19 @638

Estoy trabajando con Perl en modo consola, tengo un mini programita con el que tiro un listado de nombres desde una tabla de una bases de datos MySQL. Permito la selección de un nombre y lo último que muestro usando una ventanita (popuplabel) es el nombre seleccionado.
O sea que en pantalla me queda, el listado de fondo más la ventanita encima indicando el nombre seleccionado.
Mi problema es que no encontré aún una forma de limpiar la pantalla para poder seguir ahí mismo. O salgo perfectamente luego de un enter u obtengo errores, lo último que probé fue un clrscr() que también puede que lo esté usando mal.

recién comienzo y me complico demasiado para explicar lo que quiero hacer. Simplemente quiero lograr limpiar la pantalla para poder continuar trabajando dentro de este mismo programita.

Por ejemplo me pasa que si yo luego de mostrar la lista de nombres quiero imprimir algo en pantalla el programa se me cuelga, al igual que si quiero permitir la entrada de datos por parte del operador.

Otra cosa que puedo hacer si no queda clara mi explicación es copiar el código para que veas lo que estoy haciendo.

por **explorer** » 2008-02-20 18:54 @829

Pues casi mejor que sí...

por **Gisely** » 2008-02-25 07:34 @356

Aquí va el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Curses;
use DBI;
use Cdk;

initscr();

Cdk::init();

raw();

keypad(1);

getmaxyx($nRows,$nCols);
my$dsn='DBI:mysql:db:localhost';
my$db_user_name='user';
my$db_password='pass';
my($id,$password);
my$dbh= DBI->connect($dsn,$db_user_name,$db_password);
%listado;
%liscuit;
@aArticulos;

my$query="SELECT IdArticulo,ccArticulo FROM Articulos";

my$sth=$dbh->prepare($query);

$sth->execute();

while(($iArticulo,$cArticulo)=$sth->fetchrow_array()){
$listado{$cArticulo}=$iArticulo;

push@aArticulos,$cArticulo;
}
$sth->finish();
$dbh->disconnect();

my$alphalist=new Cdk::Alphalist('Label'=>"Articulo: ",
'Filler'=>"</R/24>_",
'Height'=>20,
'Width'=>50,
'List'=>\@aArticulos);

$alphalist->set('BoxAttribute'=>"</R>");

my$cArticulo=$alphalist->activate();

if(!defined$cArticulo){

        popupLabel (["<C>No se hizo una seleccion"]);
}else{

        popupLabel (["<C>Selecciono ($cArticulo) - Id. ".$listado{$cArticulo}]);
$iArticulo=$listado{$cArticulo};
};


Cdk::end();

getch();

endwin();
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como ya les comente probé a usar el system("clear") antes de finalizar y no pasa nada.

por **explorer** » 2008-02-25 08:41 @403

Pues viendo la API de Curses... sería poner clear(); justo antes del endwin();. Eso hará que se limpie la pantalla y que quede el cursor en la parte superior.

Foro - Perl en Español

popup: ¿cómo sigo?

popup: ¿cómo sigo?

Publicidad

¿Quién está conectado?