perlパスワード確認

Question

誰でもパスワードを2回入力して比較し、新しいユーザーを作成するときのように、正しいかどうかを確認してテキストを印刷するサンプルコードを提供できます。 perldoc -f cryptから事前のおかげで...

Answer 1

、

$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

はephemientのヒントに基づいて回答です..私はケースならば、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"; 
}