| Current Path : /usr/share/doc/perl-GTop/examples/ |
| Current File : //usr/share/doc/perl-GTop/examples/proclist |
#!/usr/bin/perl
use strict;
use ExtUtils::testlib;
use GTop ();
my $gtop = GTop->new(@ARGV);
my($proclist, $entries) = $gtop->proclist;
my $number = $proclist->number;
print "$number processes\n";
for my $pid (@$entries) {
my $state = $gtop->proc_state($pid);
my($args, $argv) = $gtop->proc_args($pid);
printf "PID %5d: '%s', %s, %d, %d [@$argv]\n",
$pid,
$state->cmd, $state->state,
$state->uid,
$state->gid;
}