home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / zombies < prev   
Encoding:
Text File  |  1990-03-02  |  457 b   |  29 lines
  1. #!/usr/local/bin/perl
  2. #
  3. #    find zombies' parents
  4. #
  5.  
  6. die "can't open ps PIPE" unless open(ps,"ps axlww|");
  7.  
  8. $header = <ps>;
  9. print $header;
  10.  
  11. while (<ps>) {
  12.     chop;
  13.     split(' ');
  14.     $procs{$_[2]} = $_;
  15. } 
  16.  
  17. $procline[1] = 0;
  18.  
  19.  
  20. while (($pid,$procline) = each(procs)) {
  21.     next unless ( $procline =~ /<(exiting|defunct)>/ );
  22.     do {
  23.         print $procline . "\n";
  24.         @procline = split(' ',$procline);
  25.         $pid = $procline[3];
  26.         $procline = $procs{$pid};
  27.     } until ( $pid < 3 );
  28. } 
  29.