What happens when you get a zero-byte and then do a second ReadKey() right away? Kinda like (pseudocode):

c=ReadKey
if (c==0) {
     # Oh, this is a special key
     c=ReadKey
}
[download]

I tried the following:

#!/usr/local/bin/perl5  # Use Perl 5
use Term::ReadKey;

my $c = "";
ReadMode(5);

while ($c ne "q")    # Press q to exit
{    $c = ReadKey(-1);

    if (ord($c) == 0)
    {    $c .= ReadKey(-1);
    }
    
    if ($c ne "")
    {    print ord $c;    
    }
}

ReadMode(0);
[download]

It didn't seem to work. How can Win32Peek() be hidden? I didn't even know this was possible in perl. There are a few things that bother me about Term::ReadKey:

1. Win32Peek() is somehow both hidden from view, but I can't figure out how to even call it from another script.
2. I am not sure where the ReadKey subroutine returns a value in the Win32 ReadKey sub. (Can you return a value by putting data into @_?)

-----------------------------------
Washizu
The best offense is a good offense.

You need to grab the source for the Term::ReadKey module and look at the *.xs file(s), which contain C code. This is almost certainly where you will find Win32Peek().

What I find is Win32PeekChar() which it appears that you can call like:

require Term::ReadKey;
my $char= Term::ReadKey::Win32PeekChar(STDIN,-1);
[download]

        - tye (but my friends call me "Tye")