Re: Grabbing input - every char, not after <Enter>

Replies are listed 'Best First'.
Re^2: Grabbing input - every char, not after <Enter> by true_atlantis (Acolyte) on Sep 17, 2007 at 21:20 UTC
I was told to look at 'Term::ReadKey' but the sample code in perldoc just does the same thing as 'while(<>)' would. does anyone have a reference web page that shows how to grab every key, or give me an example loop? thanks	[reply]
Re^3: Grabbing input - every char, not after <Enter> by Joost (Canon) on Sep 17, 2007 at 21:28 UTC
It works for me: `use Term::ReadKey; ReadMode 4; # Turn off controls keys while (not defined ($key = ReadKey(-1))) { # No key yet select undef,undef,undef,0.1; # sleep 0.1 secon +d } print "Get key $key\n"; ReadMode 0; # Reset tty mode before exiting` [download] run that: $ perl test.pl <press d> Get key d $ [download] update: the while() look does take up a tremendous amount of CPU time, though, so I added the select() call "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^4: Grabbing input - every char, not after <Enter> by true_atlantis (Acolyte) on Sep 17, 2007 at 22:31 UTC
im an idiot, was looking at Term::ReadLine... thanks	[reply]