Re: Term::ReadKey under win32

I have found that giving ReadKey() a timeout value seems to workaround this behavior. Instead of calling ReadKey(0), call it with an insane value: ReadKey(1000000000), or you can set it to one second and catch the timeout. Then just reissue the func call.

Comment on Re: Term::ReadKey under win32 Select or Download Code

Replies are listed 'Best First'.
Re^2: Term::ReadKey under win32 by Anonymous Monk on Jul 03, 2007 at 12:19 UTC
Hey I found some help alright. this is the script that works on win xp #!/usr/bin/perl -w use Term::ReadKey; print "Gimme a word: ";$\|++; while (1) { $\|++; ReadMode 5; $key = ReadKey (10); chomp ($key); ReadMode "normal"; printf "*"; $\|++; #printf "\nYou said %s, char number %03d\n", #$key, ord $key; last if ($key =~ /\r\n/); } print "\n";	[reply]