Tim Vale wrote:
> For some really odd reason, the following simplified code...
>
> use Term::ReadKey;
> ReadMode 4;
> $string="";
>
> while(1)
> {
> $key=ReadKey(-1);
> if ($key)
> {
if (defined $key) { # since '0' will generate a false
> if(ord($key) == 13)
> {
> $string="";
> print "\n";
> }
> else
> {
> $string=$string.$key;
> print $key;
> }
> }
> }
>
> ...will not register the ZERO key being pressed.
>
> It reads every other keypress/combination on UK standard keyboards.
>
> I am using v5.6.1 built for MSWin32-x86-multi-thread on both an XP and a
> Win98 machine.
>
> Any ideas ?
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
