#!/usr/bin/perl
use Proc::ProcessTable; # Modul aus dem CPAN
$ps = new Proc::ProcessTable;
$ret = 0;
PROZESS: foreach $prozess (@ARGV) {
foreach $p ( @{$ps->table} ){
next PROZESS if ($p->{cmndline} =~ /^$prozess/);
}
print "Prozess $prozess läuft nicht!\n";
$ret = 1;
}
exit $ret;