RootForum Community

Code: Select all

#!/usr/bin/perl

    my $process=$ARGV[0];
    my $killtime=$ARGV[1];

if (! $ARGV[0]) {die "KEIN ARGUMENT"}

    my $PSstring=`ps -eo user,pid,stime,time,cmd|grep -v $0`;
    my @PSarray=split(/n/,$PSstring);

foreach(@PSarray) {

($s1,$s2,$s3,$s4,$s5)=split(/ +/,$_,5);

 if ($s5=~/$process/){

        my $pid=$s2;
        my $stime=$s3;
         ($sh,$sm)=split(":",$stime);
        my $start=$sh*60+$sm;
        my $ktime=`date +"%H:%M"`;
         ($kh,$km)=split(":",$ktime);
        my $stop=$kh*60+$km;

            if ($stime=~/[a-z]/i){  # gestartet tag vorher
                $start=0;
            }
            my $dtime=$stop-$start;
            if ($dtime>=$killtime){ # prozess zu alt
                `kill -9 $pid`;
            }
 }
}