Question
January 27, 2007 at 06:10 AM
dlauxx

What else besides Term:ReadKey I can use

by dlauxx . Updated 19 years, 8 months ago

Tried to accept user response (one key stroke 0r so) to continue the perl segment, but learned that Term:ReadKey is not working under Win32. What else I can use? Please help.

The following is the one I am trying to achieve:

#!/usr/bin/perl -w
use CGI ‘:standard’,”-debug”;
use Tie::File;
use Term::ReadKey;
…
…
sub somthing{
…
print “Press any key to continue :”;
ReadMode ‘cbreak’;
while (1) {
$char = readkey(1);
last unless defined $char;
}
ReadMode ‘normal’;
…
}
…
…
# Main Body

$q=something();
print end_html();

This discussion is locked

All Comments