in reply to Timing out shell commands (paranoia)
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
To use stopafter, you say something like this:
# stopafter - run a command with a timeout
my $time = shift;
die "Couldn't exec @ARGV: $!; aborting";
The command runs, but it dies automatically after 300 seconds.
stopafter 300 command arg arg...
Now in your Perl program, use:
Now read from the pipe as usual.
After 10 seconds, the timer expires and you
get an end-of-file condition on the pipe.
open FH, "stopafter 10 command |" or die ...;
Hope this helps.