SoloCodigo

Programación Web y Scripting => Perl => Mensaje iniciado por: Aranza en Miércoles 19 de Abril de 2006, 15:55

Título: Ncurses??
Publicado por: Aranza en Miércoles 19 de Abril de 2006, 15:55
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!
Título: Re: Ncurses??
Publicado por: shakka en Miércoles 19 de Abril de 2006, 17:50
Je, je en primer lugar no se ni pizacs de Perl, pero talves esto te ayude

clrscr.pl (http://proposicion.org.ar/archiver/html/grulic/2000-12/msg00196.html) (No es mio  :ph34r:  )

Código: Text
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use Term::Cap;
  4. use POSIX;
  5.  
  6. sub ospeed
  7. {
  8.     my $termios = new POSIX::Termios;
  9.     $termios->getattr;
  10.     return($termios->getospeed);
  11. }
  12.  
  13. my $terminal = Tgetent Term::Cap{ TERM => undef, OSPEED => &ospeed };
  14. $terminal->Trequire('cl'); # ver terminfo(5) para la lista completa
  15.  
  16. $terminal->Tputs('cl', 1, *STDOUT);
  17.  
  18.  

Saludos
Título: Re: Ncurses??
Publicado por: su - en Miércoles 19 de Abril de 2006, 21:57
Si, o puedes hacerlo como el clear de Perl/Linux>
Código: Text
  1. #!/usr/bin/perl -w
  2. use Term::Cap;
  3. use strict;
  4. my $OSPEED = 9600;
  5. eval {
  6.       require POSIX;
  7.       my $termios = POSIX::Termio->new();
  8.       $termios->getattr;
  9.       $OSPEED = $termios->getospeed;
  10. };
  11. my $terminal = Term::Cap->Tgetent({OSPEED => $OSPEED});
  12. my $cl = "";
  13. eval {
  14.       $terminal->Trequire("cl");
  15.       $cl = $terminal->Tputs('cl', 1);
  16. };
  17. print $cl;
  18.  

O puedes hacer esto:

Código: Text
  1. #!/usr/bin/perl -w
  2. use strict;
  3. system("cls") and exit if $^O eq "MSWin32";
  4. system("clear");
  5.  
  6.  
Título: Re: Ncurses??
Publicado por: Aranza en Jueves 20 de Abril de 2006, 16:23
Les agradezco mucho a ambos ... ya se soluciono el problema .... Saludos!