Xanti
Mouse Organist
Hallo,
eine Anfrage hier im Forum bezüglich Passworteingabe mit *-Ausgabe für jeden Buchstaben (siehe hier)
hat mich auf die Idee gebracht, dies mal unter perl zu probieren. Folgendes hab ich bis jetzt:
Leider scheint ReadKey die Ausgabe zu blockieren, was sich darin zeigt, dass die Sterne erst nach Abschluss der Eingabe mit <Enter> ausgegeben werden.
Vielleicht hat jemand schon mal sowas programmiert und könnte mir auf die Sprünge helfen
Gruss, Phorus
eine Anfrage hier im Forum bezüglich Passworteingabe mit *-Ausgabe für jeden Buchstaben (siehe hier)
hat mich auf die Idee gebracht, dies mal unter perl zu probieren. Folgendes hab ich bis jetzt:
Code:
#!/usr/bin/perl
use Term::ReadKey;
ReadMode 'noecho';
do {
$key = ReadKey 0;
$pass .= $key;
print '*'
} until ($key eq "\n");
ReadMode 0;
Leider scheint ReadKey die Ausgabe zu blockieren, was sich darin zeigt, dass die Sterne erst nach Abschluss der Eingabe mit <Enter> ausgegeben werden.
Vielleicht hat jemand schon mal sowas programmiert und könnte mir auf die Sprünge helfen
Gruss, Phorus