|
#!/usr/bin/perl
|
|
#
|
|
|
|
use strict;
|
|
|
|
my $prog = shift @ARGV;
|
|
exit unless ($prog =~ /^[\w\.\/]+$/);
|
|
|
|
my @procs = `ps awx | grep $prog | grep -v grep | grep -v hkill`;
|
|
foreach (@procs)
|
|
{
|
|
next unless (/^\s*(\d+)\s/);
|
|
my $pid = $1;
|
|
print $pid, "\n";
|
|
kill 15, $pid;
|
|
}
|
|
|
|
|