Thank you. This worked. I was incorrectly figuring the breakdown of the array. Next question, isn't peekinput supposed to work the same way. The program runs without any error, but the array is not populated with peekinput.
Thanks again. -----Original Message----- From: Herb Hall [mailto:[EMAIL PROTECTED]] Sent: Wednesday, December 12, 2001 3:02 PM To: [EMAIL PROTECTED] Subject: Re: win32 console input problem Try this: ------------------------ use Win32::Console; $con = Win32::Console->new(STD_INPUT_HANDLE); @event = $con->Input(); print "$event[0] - event type: 1 for keyboard\n"; print "$event[1] - key down: TRUE if the key is being pressed, FALSE if the key is being released\n"; print "$event[2] - repeat count: the number of times the key is being held down\n"; print "$event[3] - virtual keycode: the virtual key code of the key\n"; print "$event[4] - virtual scancode: the virtual scan code of the key\n"; print "$event[5] - char: the ASCII code of the character (if the key is a character key, 0 otherwise)\n"; print "$event[6] - control key state: the state of the control keys (SHIFTs, CTRLs, ALTs, etc.)\n"; ------------------------ You want $event[5]. Herb Hall ----- Original Message ----- From: "Nathaniel Wert" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, December 12, 2001 12:11 PM Subject: win32 console input problem > Here's the code: > > use Win32::Console; > $con = Win32::Console->new(STD_INPUT_HANDLE); > @event = $con->Input(); > $tmp = $event[6]; > print "\n The character typed was: $tmp \n"; > > For some reason $event[6] is always returning the > ascii value of the space character no matter what I > type. I am not really sure why. > > Thank ahead of time for the help. > > __________________________________________________ > Do You Yahoo!? > Check out Yahoo! Shopping and Yahoo! Auctions for all of > your unique holiday gifts! Buy at http://shopping.yahoo.com > or bid at http://auctions.yahoo.com > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
