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 called stopafter:
To use stopafter, you say something like this:#!/usr/bin/perl # stopafter - run a command with a timeout my $time = shift; alarm($time); exec @ARGV; 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.
--
Mark Dominus
Perl Paraphernalia
In reply to Re: Timing out shell commands (paranoia)
by Dominus
in thread Timing out shell commands (paranoia)
by bluto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |