home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _20d1244b185192557ac22979a981580b < prev    next >
Text File  |  2000-03-15  |  788b  |  33 lines
  1. #!/usr/bin/perl -P
  2.  
  3. # $RCSfile: scan_ps,v $$Revision: 4.1 $$Date: 92/08/07 17:20:40 $
  4.  
  5. # This looks for looping processes.
  6.  
  7. #if defined(mc300) || defined(mc500) || defined(mc700)
  8. open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps";
  9.  
  10. while (<Ps>) {
  11.     next if /rwhod/;
  12.     print if index(' T', substr($_,62,1)) < 0;
  13. }
  14. #else
  15. open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps";
  16.  
  17. while (<Ps>) {
  18.     next if /dataserver/;
  19.     next if /nfsd/;
  20.     next if /update/;
  21.     next if /ypserv/;
  22.     next if /rwhod/;
  23.     next if /routed/;
  24.     next if /pagedaemon/;
  25. #ifdef vax
  26.     ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split;
  27. #else
  28.     ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split;
  29. #endif
  30.     print if length($time) > 4;
  31. }
  32. #endif
  33.