in reply to Re^4: Timeout and kill
in thread Timeout and kill

...but one way is to capture the process ID from the shell:

$pid = `command && echo $$` ;

This wouldn't work.

First (and least relevant), backticks interpolate the $$, so you'd get the PID of the Perl process here.  But even when fixing this using \$\$, you'd still not get the PID of the command, but that of the shell. And killing the shell does not necessarily also kill the command.  You could in theory try to fix the latter problems by using exec, i.e. 

$pid = `echo \$\$ && exec command` ;

[download]

However, that still wouldn't work, because you wouldn't get at the $pid before the entire backticks command completed.  And in case of a timeout (where you would need the PID primarily), you'd get nothing at all: 

#!/usr/bin/perl -w
use strict;

my $pid;

local $SIG{ALRM} = sub {
    die "Timeout (pid=$pid)\n";
};

my $command = "perl -e '<>'";

alarm 5;
eval {
    $pid = `echo \$\$ && exec $command`;
};
print $@;
alarm 0;
print "pid=$pid\n";

__END__
Use of uninitialized value $pid in concatenation (.) or string at ./96
+0632.pl line 7.
Timeout (pid=)
Use of uninitialized value $pid in concatenation (.) or string at ./96
+0632.pl line 18.
pid=

[download]

P.S.: contrary to what is implied elsewhere in the thread, alarm does by default not kill the subprocess behind the backticks in case of a timeout — as can easily be verified using ps.

Replies are listed 'Best First'.
Re^6: Timeout and kill
by nelson64 (Initiate) on Mar 23, 2012 at 01:53 UTC
    I am still struggling very much with killing the process once it has timed out. This is what I have: 
    
sub runFile2 {
  local($fileName, $timeout) = @_;
  my $child_pid;
  local $SIG{ALRM} = sub {
    $didTimeout=1;
    print OUTPUT "timeout";
    print OUTPUT "-", $child_pid;
    kill 9, $child_pid;
  };
  if ($child_pid = fork ) { # create child
    $didTimeout=0;
    alarm $timeout;
    $start=gettimeofday();
    waitpid($child_pid, 0); # Wait for child to terminate
    alarm 0;
    $end=gettimeofday();
    if($didTimeout==0) {
      print OUTPUT $end - $start;
    } else {
      kill 9, $child_pid;
    }
  } elsif (defined $child_pid) {
    $cmd = "$solver1 $fileName >> output.txt";
    exec ($cmd);
    exit;
  } else { # Something terrible has happened, as fork failed
      die "Cannot fork!\n";
  }
}

    [download]
    It may not be the best way because I've just been trying anything I can find. The code will timeout the function, but not kill it. Any suggestions? Help would be greatly appreciated. I've tried everything I can find online without success. Thanks!
[reply]
[d/l]
      Oops I posted the wrong version of the code: 
      sub runFile {
  local($fileName, $timelimit) = @_;
  my $child_pid;
  local $SIG{ALRM} = sub {
    $didTimeout=1;
    print OUTPUT "timeout";
    print OUTPUT "-", $child_pid;
    kill $child_pid, 9;
  };
  if ($child_pid = fork ) { # create child
    waitpid($child_pid, 0); # Wait for child to terminate
  } elsif (defined $child_pid) {
      alarm $timelimit;
      $cmd = "time $solver1 $fileName >> output.txt";
      exec ($cmd);
      alarm 0;
      exit;
  } else { # Something terrible has happened, as fork failed
    die "Cannot fork!\n";
  }
}

      [download]
      This code times out the function but allows it to still run in the background.
[reply]
[d/l]

In Section Seekers of Perl Wisdom