39 lines
662 B
Plaintext
39 lines
662 B
Plaintext
|
#!/usr/bin/env perl
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use Getopt::Long;
|
||
|
use Proc::ProcessTable::ncps;
|
||
|
|
||
|
sub version{
|
||
|
print "ncps v. 0.0.0\n";
|
||
|
}
|
||
|
|
||
|
sub help{
|
||
|
print '
|
||
|
|
||
|
-z Show zombies procs.
|
||
|
-s Show swapped out procs.
|
||
|
|
||
|
-p <regex> Search procs using the matching regex.
|
||
|
|
||
|
-u <users> A string search for users.
|
||
|
|
||
|
-t <time search> A numeric search for CPU time-c <pctcpu search> A numeric search for CPU usage percent
|
||
|
|
||
|
-m <pctmem search> A numeric search for memory usage percent
|
||
|
|
||
|
-w <wait channels> A string search for wait channels.
|
||
|
|
||
|
|
||
|
';
|
||
|
}
|
||
|
|
||
|
my $args={
|
||
|
invert=>0,
|
||
|
};
|
||
|
|
||
|
my $ncps=Proc::ProcessTable::ncps->new( $args );
|
||
|
print $ncps->run;
|
||
|
exit 0;
|