note
ybiC
Thanks for the ideas, [THRAK] and [repson]. 8^)
<br>But they don't quite address my quest for knowledge of Win32 perl for timing-out on user input.
<p>
Anyone? Bueller? <i>{grin}</i>
<p>
<b>Update: </b>
<br>Thanks to good monk [tye] for a polite RTFM 8^) <tt>perldoc Term::ReadKey</tt> indicates that it just *might* support timeout internally. I'm still experimenting with the syntax - will post results.
<p>
<b>Update: </b>
<br>No go. "<i>Non-blocking ReadLine is not supported on this architecture</i>" with ActivePerl 5.6 on Win2k, but runs fine on Debian 2.2r3
<code>$!/usr/bin/perl -w
use strict;
use Term::ReadKey;
use Term::ReadLine;
ReadMode('noecho');
print 'enter password:';
my $pass = ReadLine(5);
ReadMode('restore');
unless (defined($pass)) {
print "\n\nSorry, you waited too long.\n\n";
exit;
}</code>
<p> <i>muttering to himself...</i>
<br> Don
<br> <i>striving toward <a href="http://prometheus.frii.com/~gnat/yapc/2000-stages/">Perl Adept</a></i>
<br> <font size="-2">(it's pronounced "why-bick")</font>
75871
75871