Newbie2008+2008-12-06 13:46:32--

Code (perl): (dl )

1
2
3
4
5
6
7

while ($passwords{$name} eq {$password}) 
{
        print "\nDas Passwort ist nicht richtig. Bitte versuchen Sie es erneut:\n";
        chomp ($password = <>);
}

        print "\nDas Passwort ist richtig. Herzlich Willkommen, $name!\n";

[...]
Ich vermute den Fehler in Zeile 17:
while ($passwords{$name} eq {$password}

eq bedeutet: Du prüfst auf Gleichheit der Strings. Wenn also das eingegebene Passwort *gleich*
dem eingetragenen ist, dann schreibst du, das Passwort sei falsch. Das kann so irgendwie
nicht hinhauen. Es ist doch genau umgekehrt.

edit: und UseStrict solltest du tatsächlich unbedingt lesen. Wenn dein
Skript nicht mit strict läuft, haben weniger Leute Lust, darin Fehler zu suchen - aus gutem Grund.