Saisir un mot de passe

Sous Unix, la saisie du mot de passe n'a aucun echo sur la console, de façon à ce que votre entourage ne puisse pas en saisir la teneur ou même la longueur.

Perl propose plusieurs solutions pour saisir un mot de passe de façon sécurisée, mais la plus plus simple reste le module Term::ReadPassword .

À noter que la valeur retournée est le mot de passe en lui même et qu'il est inutile de lui appliquer la fonction chomp() .

use Term::ReadPassword;

my $pass = read_password('Votre Password');
if($pass eq "toto") {
        print "Ok\n";
}
else {
        print "Failed\n";
}