How to use timeout in perl

vasuperl has asked for the wisdom of the Perl Monks concerning the following question:

I have two perl files. in file1 if there is any error and executing continuously without exiting from the command prompt then how i have to implement timer. i am trying the below just for checking, but its not working.


$timeout=5;
eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm $timeout;
    $nread = system('F:\perl1.pl');
    alarm 0;
};
if ($@) {
    die unless $@ eq "alarm\n";   # propagate unexpected errors
    print "process terminated\n";}
else {
    # didn't
}
[download]

Comment on How to use timeout in perl Download Code

Replies are listed 'Best First'.
Re: How to use timeout in perl by blindluke (Hermit) on Jan 08, 2015 at 13:35 UTC
See this recent thread: Self terminating a script after a specified time for a problem similar to yours. Especially this reply containing useful notes about alarm. Also, as in the thread above, I would suggest you to look at Time::Limit. - Luke	[reply]
Re^2: How to use timeout in perl by vasuperl (Acolyte) on Jan 09, 2015 at 05:05 UTC
I already tried that one. But Time::Limit (limit.pm) module is not present in our perl version. We should not use external modules. Is there any other way to use timeout or alarm to exit from the script. Any help can be appreciated.	[reply]
Re^3: How to use timeout in perl by Anonymous Monk on Jan 09, 2015 at 07:20 UTC
Hi vasuperl, read the source code for that module, its very short Also this message is obligatory :) Yes, even you can use CPAN, A Guide to Installing Modules, Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules	[reply]
Re: How to use timeout in perl by Anonymous Monk on Jan 08, 2015 at 14:12 UTC
I think IPC::Run could help you here, it supports calling external commands with timeouts.	[reply]