Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: timeout for ?

by ar0n (Priest)
on Aug 29, 2000 at 13:06 UTC ( #30092=note: print w/ replies, xml ) Need Help??


in reply to timeout for ?

From "Advanced Perl Programming":

$SIG{ALRM} = \&timed_out; eval { alarm(10); $buf = <>; alarm(0); }; if ($@ =~ /BLAH/) { print "Timed out."; } sub timed_out { die "BLAH" }
update
this will wait ten seconds for someone to enter something. the alarm(0) is to reset the timer if something does get entered (so &timed_out won't get called).

if you want high resolution timing (like 2.35), ye olde dromedary suggests using syscall to call the system timer routines (itimer).

-- ar0n || Just Another Perl Joe


Comment on Re: timeout for ?
Download Code
RE: Re: timeout for ?
by tye (Cardinal) on Aug 29, 2000 at 18:25 UTC

    Ye olde dromedary is old.

    use Time::HiRes;

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://30092]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (14)
As of 2014-09-19 14:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (140 votes), past polls