Re: Using IPC::Run to kill stuck process

[zentara]

How about something like this piece of standard timeout code:

#!/usr/bin/perl
use warnings;
use strict;

my $script = 'ps auxww';

eval {

    # from http://www.rocketaware.com/perl/perlfunc/alarm.htm
    local $SIG{ALRM} = sub { die "alarm\n" };  # NB \n required
    alarm(5);                        # set time limit to 5 sec
    system($script);
    alarm(0);    # if $script finishes in <5sec reset alarm
};
die if $@ && $@ ne "alarm\n";    # propagate errors

if ($@) {
    print "Timeout!  [$@]\n";

    # do stuff if eval fails (eg timeout)
}