22 lines
313 B
Plaintext
22 lines
313 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# <LJDEP>
|
||
|
|
# prog: ps, grep
|
||
|
|
# </LJDEP>
|
||
|
|
|
||
|
|
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 1, $pid;
|
||
|
|
}
|
||
|
|
|
||
|
|
|