I'm trying to figure out an effective way of timing out shell commands in Perl.
The technique I usually use for this is to make a very small tool
# stopafter - run a command with a timeout
my $time = shift;
die "Couldn't exec @ARGV: $!; aborting";
To use stopafter
, you say something like this:
stopafter 300 command arg arg...
The command runs, but it dies automatically after 300 seconds.
Now in your Perl program, use:
open FH, "stopafter 10 command |" or die ...;
Now read from the pipe as usual.
After 10 seconds, the timer expires and you
get an end-of-file condition on the pipe.
Hope this helps.