NAME
Time::Limit - kill your broken Perl script
SYNOPSIS
use strict;
use warnings;
use Time::Limit '0.5';
while (1) {
print "infinite loop\n";
}
DESCRIPTION
It is oh so very easy to accidentally write a Perl script that dives straight into an infinite loop, or stumbles into a runaway recursion. In most cases, you can hit Ctrl + C
and get on with the job of figuring out what went wrong. However, if you're not running the process in a local terminal (e.g. you're running it over a slow SSH connection, or not in a terminal at all), these processes might be tricky to kill.
The Time::Limit module starts a monitor process that shadows your script's execution, and kills it off if your script has overrun its allotted time limit. Because Time::Limit is global in effect its use in modules is discouraged. Instead, use it only in your main script, or pass it as a parameter to Perl on the command line:
perl -MTime::Limit myscript.pl
The syntax for using Time::Limit is:
use Time::Limit @flags, $limit;
Flags are strings prefixed with a hyphen. The following flags are supported:
-group
-
Send the signal to your script's process group instead of its individual process number. That is, your script and any child processes started with
fork
will be killed. -quiet
-
Kill the script quietly.
-verbose
-
Output extra debugging information.
The $limit
is a number indicating the time in seconds before your script gets killed. It does not have to be an integer. It defaults to a very generous 10.
Be careful to avoid triggering Perl's use MODULE VERSION
syntax.
use Time::Limit -verbose, 4.0; # yep, kill after 4 seconds
use Time::Limit '4.0'; # yep, kill after 4 seconds
use Time::Limit 4.0; # nah, want $VERSION==4.0
After $limit
is reached, Time::Limit will try signalling your script to terminate cleanly (SIGTERM) a few times; if that fails, it will become more aggressive and send SIGKILL signals until it receives word of your script's timely death.
Some random examples using Time::Limit from the command-line:
perl -MTime::Limit=-quiet,4 myscript.pl
perl -MTime::Limit=-group,-verbose,4.1 myscript.pl
perl -MTime::Limit=3 myscript.pl
BUGS
Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=Time-Limit.
SEE ALSO
Time::Out - this allows you to apply a timeout to an individual block of code, and then gracefully carry on.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
This software is copyright (c) 2013 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.