Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Win32: Can a read from STDIN be timed out?
- Thread starter GDameron
- Start date
Not sure what other thread you are referring to, and thus don't know exactly what you are looking for, but you might want to check out this thread:
raider2001
Technical User
Here's a solution:
Code:
use Term::ReadKey;
ReadMode 4; # Turn off controls keys
my $TimeOut = 5;
my ($Key, $i);
print "Waiting $TimeOut seconds for input: ";
for ($i=0; $i<$TimeOut; $i++) {
last if (defined($Key = ReadKey(-1)));
sleep(1);
}
if (defined($Key)) {
print "Got key $Key \n";
} else {
print "\nTimed out on STDIN \n";
}
ReadMode 0; # Reset tty mode before exiting- Status
Similar threads