Tastaturabfrage - muß immer Enter drücken: mit select oder ReadKey - #82707 (Allgemeines zu Perl)

solder

2004-05-25 19:26

User since
2004-05-25
5 Artikel
BenutzerIn
[default_avatar]

Hallo nochmal,

So, ich hab's jetzt noch mal mit einem ganz einfachen Programm versucht:

Code: (dl )

#!/usr/bin/perl -w

use Term::ReadKey;
use strict;

for (my $i=0;$i<10;$i++) {
    sleep 2;
    ReadMode('cbreak');
    if (defined (my $char = ReadKey(-1)) ) {
        print "Das Zeichen war $char\n";
    } else {
        print "nichts gedrückt\n";
    }
    ReadMode('normal');
}
sleep 3;

Was passiert? Wenn man nach dem Start gleich eine Taste drückt und dann immer wieder, so funktioniert alles. Drückt man jedoch bei einem Durchlauf keine Taste so funktioniert es von da an nie wieder. Warum? Bin ziemlich ratlos

Solder :angry:

Ich verwende Perl 5.8.x unter SuSE Linux oder Debian Sarge
Projekte: Perl für Apache/MySQL-CGI (funktioniert wunderbar)
Jukebox-Projekt (große Baustelle).