Hallo zusammen,
ich hab eine kleine Verständnisfrage, da ich eine Sache einfach nicht verstehe.
Ich habe eine Passwortabfrage gebaut. Diese sieht im Ganzen natürlich etwas anders aus, aber hier eine kleine, beispielhafte „Anmeldemaske“.
print 'Domain: ';
chomp(my $domain = );
print 'User: ';
chomp(my $user = );
my $password=&getpassword();
print "\nTest: $domain $user $password";
sub getpassword {
use Term::ReadKey;
print "Enter password: ";
ReadMode 'raw';
my $passphrase;
while (ord($key = ReadKey(0)) != 13) {
$passphrase.=$key;
print "\*";
}
ReadMode 'restore';
return $passphrase;
}
Ich habe nun das Problem, dass ich nach Passworteingabe 4mal Enter drücken muss, bevor er mir in den letzten „print“ springt und die 3 Eingaben ausgibt.
Vielleicht liegt’s am Montag, aber ich verstehe es im Moment einfach nicht. Kann mich jemand aus meiner Unwissenheit befreien? 
Viele Grüße
PS: Natürlich könnte ich ReadLine verwenden, aber ich wollte es schön für den Anwender machen 