#!/usr/bin/perl
# Kills every occurance of a process by name, instead of PID
# usage: ./killname <process name to kill>
# Written by hypoclear - hypoclear@jungle.net - http://hypoclear.cjb.net

if (@ARGV > 0)
 { $flag = 0; print "\n";
   $user = `whoami`; $user =~ s/\n//g;
   $ps = `ps -u $user`; @ps = split(/\n/,$ps);
   foreach $item (@ps)
     { @line = split(/\s+/,$item);
       if ($line[3] eq $ARGV[0]) 
        { `kill -9 $line[0]`;
          print  "Killed PID $line[0], \"$line[3]\"\n";
          $flag = 1;
        }
     }
   if ($flag == 1) {print "\n";}
   else {die "No such process\n\n";}
 }
else
 { print "\nusage: $0 <process name to kill>\n\n";
 }