Programación Web y Scripting > Perl

 Ncurses??

(1/1)

Aranza:
Hola....estoy haciendo un modulito para administrar responsables entre otras cosas... este cgi es recursivo y mientras realice la auto-llamada desde un submit todo funciona bien pero tengo dos iconos con links en los que envio los parametros necesarios y ahi es cuando al desplegar me muestra tanto los elementos de la pantalla llamada como la que la llamo.... estuve buscando algun tipo de "clrscr" para perl y encontre algunas tips que no me funcionaron.... como poner un print "\x1b[2J" y el uso de "ncurses" del cual no me dan mucha informacion....  podrian asesorarme de donde puedo encontrar informacion al respecto o algun tip para solucionar mi problema??  

Saludos!

shakka:
Je, je en primer lugar no se ni pizacs de Perl, pero talves esto te ayude

clrscr.pl (No es mio  :ph34r:  )


--- Código: Text ---#!/usr/bin/perl -wuse strict;use Term::Cap;use POSIX; sub ospeed{    my $termios = new POSIX::Termios;    $termios->getattr;    return($termios->getospeed);} my $terminal = Tgetent Term::Cap{ TERM => undef, OSPEED => &ospeed };$terminal->Trequire('cl'); # ver terminfo(5) para la lista completa $terminal->Tputs('cl', 1, *STDOUT);  
Saludos

su -:
Si, o puedes hacerlo como el clear de Perl/Linux>

--- Código: Text ---#!/usr/bin/perl -wuse Term::Cap;use strict;my $OSPEED = 9600;eval {      require POSIX;      my $termios = POSIX::Termio->new();      $termios->getattr;      $OSPEED = $termios->getospeed;};my $terminal = Term::Cap->Tgetent({OSPEED => $OSPEED});my $cl = "";eval {      $terminal->Trequire("cl");      $cl = $terminal->Tputs('cl', 1);};print $cl; 
O puedes hacer esto:


--- Código: Text ---#!/usr/bin/perl -wuse strict;system("cls") and exit if $^O eq "MSWin32";system("clear");  

Aranza:
Les agradezco mucho a ambos ... ya se soluciono el problema .... Saludos!

Navegación

[0] Índice de Mensajes