24 Feb
2003
24 Feb
'03
12:02 p.m.
Am Sonntag, 23. Februar 2003 21:06 schrieb Mike Reiche:
Hallo!
Ich suche eine Möglichkeit Tastatureingaben abzufangen, ich kenn nur <STDIN> und getc(STDIN).
Aber beide verlangen zum Abschließen ein ENTER. Ich benötige aber eine laufende Abfrage damit der ganze Prozess nicht wegen einer Eingabeaufforderung angehalten wird.
LÖSUNG!
-------------------------------
#!/usr/bin/perl
use Term::ReadKey;
ReadMode ('cbreak'); while (1) { $key = ReadKey(0); $text .= $key; print $key; if ($key =~ /^\n/ig) { print "you write: $text"; print "\n"; } } ReadMode('normal');
-------------------------------
--
supporting rebell fuenfpunkteins...