perl password confirmation

Question

kann jemand mir einen Beispielcode geben, damit ein Benutzer ein Kennwort zweimal eingibt und sie vergleicht und einen Text druckt, wenn sie richtig sind oder nicht, wie wenn wir einen neuen Benutzer verursachen. Vielen Dank im Voraus ...

Answer 1

Von 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"; 
} 

Ändern Sie bitte Ihre Bedürfnisse anzupassen.

Answer 2

hier ist die Antwort auf ephemient des Hinweises basiert .. ich nicht die erste Zeile müssen, dass ich entfernt und in falls Fall ne Gl nehme an, bedeutet dies wahrscheinlich gleich:) es sieht es funktioniert ..

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

Krypta ist ein roter Hering.

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"; 
}