Hi Guys, I'm trying to 'safely' execute a shell command passed to a function (exec_safe). My intention is to return the output of the shell command and the exit code if the command completes. exec_safe receives the following: $_[0] = Command to be run. This may contain pipes, redirects, etc. $_1 = The timeout (seconds) for the command $_2 = A nice value that the command is run at. After some googling, etc I've come up with the following (Comments included):
sub exec_safe { my @cmd; # Return variable eval { local $SIG{ALRM} = sub { die "Timeout\n" }; alarm $_[1]; @cmd = `nice -n $_[2] $_[0]`; alarm 0; }; if($@) { # If command fails, return non-zero and msg return ("Command timeout",1); } else { chomp @cmd; push(@cmd,$? >> 8); return @cmd; } }
While this operates correctly in allowing the perl program to continue after the timeout, in testing it's not terminating the spawned process. For example, if I call 'sleep 250' with a timeout of 10, the function will return after 10 seconds with "Command Timeout",1, however PS shows that the process 'sleep 250' is still running. Caveat: Note that because I'm looking for the returned data and exit code of the child process, exec_safe cannot return until it's finished or timed out. From a brief googlin', it doesn't appear that fork will allow me to get all the data I need. Any ideas?

In reply to Execute shell command, grab it's return, terminate on timeout by Haioken

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.