4.4BSD/usr/src/contrib/perl-4.036/eg/scan/scan_ps

#!/usr/bin/perl -P

# $Header: scan_ps,v 4.0 91/03/20 01:13:29 lwall Locked $

# This looks for looping processes.

#if defined(mc300) || defined(mc500) || defined(mc700)
open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps";

while (<Ps>) {
    next if /rwhod/;
    print if index(' T', substr($_,62,1)) < 0;
}
#else
open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps";

while (<Ps>) {
    next if /dataserver/;
    next if /nfsd/;
    next if /update/;
    next if /ypserv/;
    next if /rwhod/;
    next if /routed/;
    next if /pagedaemon/;
#ifdef vax
    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split;
#else
    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split;
#endif
    print if length($time) > 4;
}
#endif