sub read_password { my $password; ReadMode('noecho'); print "Password: "; $password = ReadLine(0); ReadMode(0); return "$password"; }
La llamada sería algo parecido a esto:
$password = read_password() unless ($password);
Mejor aún es no reinventar la rueda. Programar en Perl es usar CPAN.
El módulo Term::ReadPassword provee la función read_password
:
$password = read_password('password: ') unless ($password);
Guarde cifrado el fichero de configuración.
Use quintuple-agent
para
automatizar el proceso de descifrar el
fichero.
Casiano Rodríguez León