Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^2: coming out of perl script after 10 min.

by venky4289 (Novice)
on Mar 05, 2013 at 10:40 UTC ( #1021799=note: print w/ replies, xml ) Need Help??


in reply to Re: coming out of perl script after 10 min.
in thread coming out of perl script after 10 min.

#!/usr/bin/perl eval { local %SIG; $SIG{ALRM}= sub{ die "timeout reached, after 20 seconds!\n"; }; alarm 20; print "sleeping for 60 seconds\n"; #sleep 60; # This is where to put your code, between the alarms $x=<stdin>; alarm 0; }; alarm 0; if($@) { print "Error: $@\n"; } exit(0);
Here we should enter some input, but my requirement is if the input is not enetered in 20 sec, it should come out of the program(Exit the program).


Comment on Re^2: coming out of perl script after 10 min.
Download Code
Re^3: coming out of perl script after 10 min.
by moritz (Cardinal) on Mar 05, 2013 at 17:13 UTC
    but my requirement is if the input is not enetered in 20 sec, it should come out of the program(Exit the program).

    And that's what the program does (as far as I can tell; but hard to tell, since it is formatted so badly here). Which is why I wonder what your actual question is.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2014-09-01 18:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (15 votes), past polls