Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Timing out shell commands (paranoia)

by Dominus (Parson)
on May 02, 2001 at 18:31 UTC ( #77333=note: print w/ replies, xml ) Need Help??

in reply to Timing out shell commands (paranoia)

Says bluto:

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:
#!/usr/bin/perl # stopafter - run a command with a timeout my $time = shift; alarm($time); exec @ARGV; 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.

Mark Dominus
Perl Paraphernalia

Comment on Re: Timing out shell commands (paranoia)
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://77333]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2015-11-28 03:57 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (737 votes), past polls