perl mot de passe confirmation

Question

quelqu'un peut-il me donner un exemple de code pour permettre à un utilisateur d'entrer un mot de passe deux fois et les comparer et imprimer un texte s'ils sont corrects ou non, comme lorsque nous créons un nouvel utilisateur. Merci à l'avance ...

Answer 1

De perldoc -f crypt,

$pwd = (getpwuid($<))[1]; 

system "stty -echo"; 
print "Password: "; 
chomp($word = <STDIN>); 
print "\n"; 
system "stty echo"; 

if (crypt($word, $pwd) ne $pwd) { 
    die "Sorry...\n"; 
} else { 
    print "ok\n"; 
} 

Modifier pour répondre à vos besoins.

Answer 2

est la réponse ici basée sur le soupçon de ephemient .. J'ai besoin la première ligne que j'ai enlevé et si le cas supposons ne être eq, signifie probablement égale:) il semble qu'il fonctionne ..

system "stty -echo"; 
print "Password: "; 
chomp($word = <STDIN>); 
print "Password again: "; 
chomp($pwd = <STDIN>); 
print "\n"; 
system "stty echo"; 

if (crypt($word, $pwd) eq $pwd) { 
    die "Sorry...\n"; 
} else { 
    print "ok\n"; 
} 

Answer 3

crypte est un hareng rouge.

system "stty -echo"; 
print "Password: "; 
chomp(my $password = <STDIN>); 
print "\nPassword again: "; 
chomp(my $check_again = <STDIN>); 
print "\n"; 
system "stty echo"; 

if ($password ne $check_again) { 
    die "Sorry...\n"; 
} else { 
    print "ok\n"; 
}