Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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" }
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
Replies are listed 'Best First'.
RE: Re: timeout for ?
by tye (Sage) 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?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2015-10-14 04:55 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (320 votes), past polls