Foro - Perl en Español

por **BigBear** » 2010-04-22 13:09 @589

Hola a todos.

Hace tiempo quería preguntar si alguien alguna vez vio un programa que se manejara por consola y
no por ventanas, el cual imprima cierto texto; por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Tool 0.0

Hola a todos

Soy 1Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pues lo que me interesa es que éste se actualice en la parte de "soy 1"

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Tool 0.0

Hola a todos

Soy 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y así, sucesivamente. Había oído que se podía hacer con syswrite(), pero no estoy seguro.
El problema es que puedo hacerlo con clear o cls pero no me gusta esa forma.

¿Alguien sabe cómo se hace?

use strict;
use warnings;

my$clear_screen=undef;

# check if this is linux
if($^Oeq'linux'){
$clear_screen=`clear`;
}
elsif($^O=~/MSWin32/i){
$clear_screen=`cls`;
}

for(1..100){
print"Tool 0.0\n\n";
print"Hola a todos\n\n";
print"Soy $_\n";
sleep2;
print$clear_screen;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

La variable $^O mira en qué sistema operativo te hallas. Ahora no tengo un Windows a mano, así que no lo puedo comprobar. Si lo usas en Windows, haz un print $^O para ver qué te devuelve. Si es Linux, usamos el comando "clear" para limpiar la consola, si estás en Windows puedes usar "cls" para lo mismo. Una vez que tienes eso el resto es muy fácil.

por **creating021** » 2010-04-22 14:31 @646

Es mejor hacerlos con Term::Screen (ANSI Escapes):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Term::Screen;
my$scr=new Term::Screen;
$scr->at(20, 20);
$scr->puts("Hola Mundo!");
sleep(3);
$scr->at(20, 20);
$scr->puts("Hola Gente!");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **natxo** » 2010-04-22 15:16 @678

creating021 escribiste:Es mejor hacerlos con Term::Screen

En teoría, tienes razón; en la práctica, sobre todo sin tener el paquete en distribuciones tan comunes como RHEL/CentOS o Debian, pues es más fácil usar la llamada al sistema que andar instalando módulos de CPAN. La vida es demasiado corta para eso

por **explorer** » 2010-04-22 15:36 @691

Si estás en Windows, puedes probar el módulo Win32::Console.

Instalarlo es cuestión de unos segundos.

por **natxo** » 2010-04-22 15:58 @707

Doddy escribiste:El problema es que puedo hacerlo con clear o cls pero no me gusta esa forma.

Esto no lo había leído antes de responder antes. Sobre gustos los colores

; incluso en la faq de Perl usan este método para hacer lo que preguntas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$ perldoc -q screen

How do I clear the screen?

       If you only have do so infrequently, use "system":

               system("clear");

       If you have to do this a lot, save the clear string so you can print it

       100 times without calling a program 100 times:

               $clear_string = `clear`;

               print $clear_string;

       If you’re planning on doing other screen manipulations, like cursor

       positions, etc, you might wish to use Term::Cap module:

               use Term::Cap;

               $terminal = Term::Cap->Tgetent( {OSPEED => 9600} );

               $clear_string = $terminal->Tputs('cl');
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-04-22 16:13 @717

nacho, a lo que se refiere Doddy es a cómo posicionar el cursor de la consola, en una determinada posición. Y que el método de borrar toda la pantalla no le parecía correcta o elegante. Por eso, entre creating021 y yo les hemos dado un par de alternativas, para colocar el cursor, usando las limitadas características de terminal de las consolas de Windows.

Foro - Perl en Español

Actualizar un texto

Actualizar un texto

Publicidad

Re: Actualizar un texto

Re: Actualizar un texto

Re: Actualizar un texto

Re: Actualizar un texto

Re: Actualizar un texto

Re: Actualizar un texto

¿Quién está conectado?