프롬프트에서 아무 것도 입력하지 않아도 프로그램이 작동하는 이유는 무엇입니까?

Question

다음 스크립트는 사용자 이름과 암호를 묻는 메시지를 표시하고 일치하는지 확인합니다. 그러나, 방금 을 누르더라도 Success!이 인쇄됩니다. 사용자 이름이나 암호를 실제로 입력하지 않고 프롬프트에을 입력하십시오. 왜?

#!/usr/bin/perl 

%data = qw(
    javad root 
    ali  1234 
    george password 
); 

print "Please enter your name :\n"; 
$name = <STDIN>; 
chomp($name); 
$pass = $data{$name}; 

#receiving password from user 
#compare it with correct password 
#print the result 
print "What is your password ?\n"; 
$guess = <STDIN>; 
chomp($guess); 

$whileTest = "True"; 
while ($whileTest eq "True") { 
    if ($pass eq $guess) { 
     print "Success!\n"; 
     $whileTest = "False"; 
    } 
    elsif ($pass ne $guess) { 
     print "Wrong password , Try again :\n"; 
     $guess = <STDIN>; 
     chomp($guess); 
    } 
} 

Answer 1

빠른 수정

$pass = $data{$name} or die "No password for $name"; 

당신이 빈 이름을 입력 한 암호는 나중에 빈 문자열과 비교하여 true로 동일하고 액세스 할 수 있습니다 undef입니다. use warnings;은 그런 비교에 대해 적어도 불평 할 것입니다.