Wenn in Perl nicht funktioniert. Habe ich einen Fehler gemacht?

Question

Ich begann gestern, Perl zu lernen. Ich habe diesen Code geschrieben:

print "Please type in your password.\n"; 
print "Password: "; 
chomp($password = <>); 
if ($password == "admin") 
{ 
print "Password is correct!"; 
} 
else 
{ 
print "Password is incorrect!"; 
} 

Wenn ich schreibe „admin“ es sagt mir, dass das Passwort richtig ist, aber wenn ich jedes anderes Passwort schreibe es sagt mir das Gleiche. Es ist wie wenn das if nicht ausgeführt wird. Was kann ich tun?

Answer 1

Zum Vergleichen von Strings wird der Operator eq verwendet. Ich habe diesen Fehler auch oft gemacht.

… 
if ($password eq "admin") 
… 

Wenn Sie den == Operator auf Strings verwenden, eine Zahl im String enthalten ist, umgewandelt: foo auf Null geht, 2foo geht an 2

Answer 2

Perl verwendet eq statt == für String-Vergleich.

ändern

if ($password == "admin") 
{ 
    print "Password is correct!"; 
} 

Um

if ($password eq "admin") 
{ 
    print "Password is correct!"; 
} 

Answer 3

der Vergleichsoperator "==" wird verwendet, um Zahlen zu vergleichen, während der Operator "eq" verwendet wird, Strings zu vergleichen.