Using Proc::ProcessTable, your code would look something like this:

use Proc::ProcessTable;

my $running = 0;
my $proc = Proc::ProcessTable->new;
foreach ( @{ $proc->table } ) {
    if ($_->cmndline =~ /nameofprocess/) {
        $running = 1;
        last;
    }
}
if (!$running) {
    #   do something to reinvoke process
}
[download]

Much neater than using non-portable ps calls and nasty regular expressions to my mind :-)

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

my $alive = (kill 0 => $pid);
[download]

   @outrecs = `ps -efo pid,pcpu,fname`;
   @matches = grep /ns-httpd/, @outrecs;
   foreach (@matches) {
      $ct++;
      chomp;
      ($process, $pcpu, $pname) = split(" ");
      $sttotal = $sttotal + $pcpu;
   }
[download]

--Jim

Update: You can also use:

   @matches = `ps -efo pid,pcpu,fname|grep httpd`;
[download]

good luck.

We speak the way we breathe. --Fugazi

I'll also put in in a good word for Big Brother. It's our primary monitor and is working well. You may also want to look at Spong which was inspired by BB but is written in perl.

Once you start down this road you'll find lots more things that you want to monitor and I'd vote for an existing framework over re-inventing the wheel. Happy Monitoring!

Dave

I'll second the Big Brother suggestion, and also toss in another for NetSaint. I've used both, and am leaning towards replacing an old BB instalation with NetSaint. YMMV.

-Blake