Foro - Perl en Español

Hola,

quiero hacer un simple script que pregunte:

Escribe el usuario:
Escribe la password:

pero pretendo que cuando el usuario teclee su password aparezca ******* no los caracteres que el vaya tecleando.

¿Como puedo hacerlo?

Código: Seleccionar todo

print qq~

<TABLE  BORDER="0" CELLSPACING="5" CELLPADDING="5"> 
   <TR>
      <TD><B style="font-size:110%;">&nbsp;Username:&nbsp;</B></TD>
      <TD><INPUT TYPE="text" ID="USERNAME" NAME="USERNAME" size="18"></TD>
   </TR>
   <TR>
      <TD><B style="font-size:110%;">&nbsp;Password:&nbsp;</B></TD>
      <TD><INPUT TYPE="password" ID="PASSWORD" NAME="PASSWORD" size="18"></TD>
   </TR>
</TABLE>
~;


No se si he entendido bien tu pregunta, si te refieres a un cgi a traves de la web pon el codigo de arriba en tu programa en perl.

Un saludo.

Hola,

macgregor tiene razón, todo lo que tienes que hacer es cambiar el tipo del campo.

Tu campo en vez de ser:

Código: Seleccionar todo

TYPE="text"

debe de ser

Código: Seleccionar todo

TYPE="password"

Para mayor información acerca de formas HTML checa aquí.



SALUDOS

Hola,

no es a través de la web, sino en un windows 2000 en linea de comandos.

Gracias

Yo no lo he probado, pero he encontrado este: Term::ReadPassword. Parece que hay problemas a la hora de instalarlo en windows, pero no en el resto de sistemas.

Hola,

he retomado este tema y he conseguido que funcione con: Term::Readpassword tal y como de indicabas.
Instalando Term-ReadPassword-Win32-0.02.zip de http://ppm.activestate.com/PPMPackages/ ... y/Windows/

aquí teneis un ejemplo:

Código: Seleccionar todo

use Term::ReadPassword::Win32;

print "Escribe el nombre de usuario:";
$remote_user = <STDIN>;
chomp $remote_user;
$password = read_password('password: ');
print "La password que has tecleado es: $password\n";