perl - パールのパスワード確認

Question

新しいユーザーを作成するときのように、ユーザーがパスワードを 2 回入力してそれらを比較し、正しいかどうかテキストを出力できるようにするためのサンプル コードを教えてください。前もって感謝します...

Answer 1

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

必要に応じて変更します。

Answer 2

ここにエフェミエントのヒントに基づく答えがあります..私が削除した最初の行は必要ありません.neがeqであると仮定した場合、おそらく等しいことを意味します:)それはうまくいくように見えます..

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

クリプトは赤いニシンです。

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