Non-blocking keyboard?
I'm writing a program where a process runs in a loop. I want to process
keyboard input without disturbing the main process in the loop. I'm
trying to use the Win32::Console module for this task (see code below),
but the module blocks on the Input statement.
Is there some way to make this non-blocking, or maybe even use a
different technique entirely that does not block? I tried whipping an
IOCTL statement on it, but I either did it wrong, or it does not work.
use strict;
use warnings;
use Win32::Console;
my $STDIN = new Win32::Console(STD_INPUT_HANDLE);
$STDIN->Mode(ENABLE_PROCESSED_INPUT);
# Un-buffer STDOUT.
select((select(STDOUT), $| = 1)[0]);
while (1)
{
my @input = $STDIN->Input();
if (defined $input[0] and $input[0] == 1)
{
if ($input[1])
{
last if $input[5] == 27; # ESC key.
if ($input[5] == 8) {print "\x08", ' ', "\x08"; next;} #
Backspace key.
print chr($input[5]);
}
}
}
As an aside, I think we need to get more traffic on this list somehow.
Barry Brevik
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Non-blocking keyboard?
You might want to look into the Term::Readkey module.
Robert Jones, BSP, BSCS
Keesler AFB
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Barry
Brevik
Sent: Friday, October 07, 2011 11:46 AM
To: perl-win32-users@listserv.activestate.com
Subject: Non-blocking keyboard?
I'm writing a program where a process runs in a loop. I want to process
keyboard input without disturbing the main process in the loop. I'm
trying to use the Win32::Console module for this task (see code below),
but the module blocks on the Input statement.
Is there some way to make this non-blocking, or maybe even use a
different technique entirely that does not block? I tried whipping an
IOCTL statement on it, but I either did it wrong, or it does not work.
use strict;
use warnings;
use Win32::Console;
my $STDIN = new Win32::Console(STD_INPUT_HANDLE);
$STDIN->Mode(ENABLE_PROCESSED_INPUT);
# Un-buffer STDOUT.
select((select(STDOUT), $| = 1)[0]);
while (1)
{
my @input = $STDIN->Input();
if (defined $input[0] and $input[0] == 1)
{
if ($input[1])
{
last if $input[5] == 27; # ESC key.
if ($input[5] == 8) {print "\x08", ' ', "\x08"; next;} #
Backspace key.
print chr($input[5]);
}
}
}
As an aside, I think we need to get more traffic on this list somehow.
Barry Brevik
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Non-blocking keyboard?
Hi,
I also thought of Term::ReadKey and gave it a shot, but it reports that
non-blocking mode does not work under windows.
Also looked at the 'select' statement, but that appears to only work for
sockets under windows.
Ken
> From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-
> win32-users-boun...@listserv.activestate.com] On Behalf Of JONES,
> ROBERT E CTR USAF AETC TTMS/TTMS
> Sent: Friday, October 07, 2011 1:06 PM
> To: Barry Brevik; perl-win32-users@listserv.activestate.com
> Subject: RE: Non-blocking keyboard?
>
>
> You might want to look into the Term::Readkey module.
>
>
> Robert Jones, BSP, BSCS
> Keesler AFB
>
> -Original Message-
> From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-
> win32-users-boun...@listserv.activestate.com] On Behalf Of Barry Brevik
> Sent: Friday, October 07, 2011 11:46 AM
> To: perl-win32-users@listserv.activestate.com
> Subject: Non-blocking keyboard?
>
> I'm writing a program where a process runs in a loop. I want to process
> keyboard input without disturbing the main process in the loop. I'm
> trying to use the Win32::Console module for this task (see code below),
> but the module blocks on the Input statement.
>
> Is there some way to make this non-blocking, or maybe even use a
> different technique entirely that does not block? I tried whipping an
> IOCTL statement on it, but I either did it wrong, or it does not work.
>
> use strict;
> use warnings;
> use Win32::Console;
>
> my $STDIN = new Win32::Console(STD_INPUT_HANDLE);
> $STDIN->Mode(ENABLE_PROCESSED_INPUT);
>
> # Un-buffer STDOUT.
> select((select(STDOUT), $| = 1)[0]);
>
> while (1)
> {
> my @input = $STDIN->Input();
> if (defined $input[0] and $input[0] == 1)
> {
> if ($input[1])
> {
> last if $input[5] == 27; # ESC key.
> if ($input[5] == 8) {print "\x08", ' ', "\x08"; next;} #
> Backspace key.
> print chr($input[5]);
> }
> }
> }
>
> As an aside, I think we need to get more traffic on this list somehow.
>
> Barry Brevik
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Non-blocking keyboard?
On Fri, 07 Oct 2011, Barry Brevik wrote:
> I'm writing a program where a process runs in a loop. I want to
> process keyboard input without disturbing the main process in the
> loop. I'm trying to use the Win32::Console module for this task (see
> code below), but the module blocks on the Input statement.
>
> Is there some way to make this non-blocking, or maybe even use a
> different technique entirely that does not block? I tried whipping an
> IOCTL statement on it, but I either did it wrong, or it does not work.
>
> use strict;
> use warnings;
> use Win32::Console;
>
> my $STDIN = new Win32::Console(STD_INPUT_HANDLE);
> $STDIN->Mode(ENABLE_PROCESSED_INPUT);
>
> # Un-buffer STDOUT.
> select((select(STDOUT), $| = 1)[0]);
>
> while (1)
> {
> my @input = $STDIN->Input();
I think you wanted to call PeekInput() instead of Input() here.
But GetEvents() may be even better if you only want to see if there
are waiting keyboard events at all.
> if (defined $input[0] and $input[0] == 1)
> {
> if ($input[1])
> {
> last if $input[5] == 27; # ESC key.
> if ($input[5] == 8) {print "\x08", ' ', "\x08"; next;} #
> Backspace key.
> print chr($input[5]);
> }
> }
> }
Cheers,
-Jan
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
