подтверждение пароля 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 в .. Я не нуждаюсь в первой строке, что я удален и если случай пе предполагают, чтобы эк, вероятно, означает, что равно:) это выглядит он работает ..

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

crypt - красная селедка.

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