perl密码确认

Question

任何人都可以给我一个示例代码，让用户输入密码两次并比较它们并打印文本（如果它们是否正确），就像我们创建新用户时一样。提前谢谢......

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

这里是基于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";
}