home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / unix / shell / 3702 < prev    next >
Encoding:
Text File  |  1992-08-30  |  2.7 KB  |  106 lines
  1. Newsgroups: comp.unix.shell
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!destroyer!ubc-cs!dhami
  3. From: dhami@cs.ubc.ca (Mandeep S Dhami)
  4. Subject: > Need Script To Kill Process Using Substring Of Application Name
  5. Message-ID: <1992Aug31.013546.16535@cs.ubc.ca>
  6. Summary: from lwall
  7. Keywords: zap, perl
  8. Sender: usenet@cs.ubc.ca (Usenet News)
  9. Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
  10. Date: Mon, 31 Aug 92 01:35:46 GMT
  11. Lines: 93
  12.  
  13. From westes@netcom.com:
  14. >
  15. > Does anyone have a script that they could send to me that will take as
  16. > its input some substring and then kill any process you own that has that
  17. > substring in its application name?  So the script would do something
  18. > like:
  19. > 
  20. >     ps guaxww | grep "some_substring"
  21. > 
  22. > then it would exclude the line that contained the grep command, locate
  23. > the PID of the remaining processes, and kill each one.  Please post the
  24. > script for others to see if its short enough.
  25. > 
  26. I use this perl script (from THE CAMEL BOOK), hope it helps:
  27. -------------------8<----- snip ----->8-------------------------
  28. #!/usr/local/bin/perl
  29.  
  30. # Usage: zap [-signal] pattern
  31.  
  32. # Configuration parameters.
  33.  
  34. $sig = 'TERM';
  35.  
  36. $BSD = -f '/vmunix';
  37. $pscmd = $BSD ? "ps -auxww" : "ps -ef";
  38.  
  39. open(TTYIN, "</dev/tty") || die "can't read /dev/tty: $!";
  40. open(TTYOUT, ">/dev/tty") || die "can't write /dev/tty: $!";
  41. select(TTYOUT);
  42. $| = 1;
  43. select(STDOUT);
  44. $SIG{'INT'} = 'cleanup';
  45.  
  46. if ($#ARGV >= $[ && $ARGV[0] =~ /^-/) {
  47.     if ($ARGV[0] =~ /-(\w+)$/) {
  48.     $sig = $1;
  49.     } else {
  50.     print STDERR "$0: illegal argument $ARGV[0] ignored\n";
  51.     }
  52.     shift;
  53. }
  54.  
  55. if ($BSD) {
  56.     system "stty cbreak </dev/tty >/dev/tty 2>&1";
  57. }
  58. else {
  59.     system "stty", 'cbreak',
  60.     system "stty", 'eol', '^A';
  61. }
  62.  
  63. open(PS, "$pscmd|") || die "can't run $pscmd: $!";
  64. $title = <PS>;
  65. print TTYOUT $title;
  66.  
  67. # Catch any errors with eval.  A bad pattern, for instance.
  68.  
  69. eval <<'EOF';
  70. while ($cand = <PS>) {
  71.     chop($cand);
  72.     ($user, $pid) = split(' ', $cand);
  73.     next if $pid == $$;
  74.     $found = !@ARGV;
  75.     foreach $pat (@ARGV) {
  76.     $found = 1 if $cand =~ $pat;
  77.     }
  78.     next if (!$found);
  79.     print TTYOUT "$cand? ";
  80.     read(TTYIN, $ans, 1);
  81.     print TTYOUT "\n" if ($ans ne "\n");
  82.     if ($ans =~ /^y/i) { kill $sig, $pid; }
  83.     if ($ans =~ /^q/i) { last; }
  84. }
  85. EOF
  86. &cleanup;
  87.  
  88. sub cleanup {
  89.     if ($BSD) {
  90.     system "stty -cbreak </dev/tty >/dev/tty 2>&1";
  91.     }
  92.     else {
  93.     system "stty", 'icanon';
  94.     system "stty", 'eol', '^@';
  95.     }
  96.     print "\n";
  97.     exit;
  98. }
  99.  
  100. # End of file
  101. --
  102. __________________________________________________________________
  103. "I'm very brave generally," he went on in a low voice:
  104. "only to-day I happen to have a headache."
  105.                                       -- Lewis Carroll
  106.