直接访问Unix进程表,类似ps命令。
#!/usr/bin/perl
use strict;
use Proc::ProcessTable;
my $pt = new Proc::ProcessTable;
foreach(reverse sort @{$pt->table})
{
print $_->pid, " => ";
print $_->cmndline, "\n";
}
exit 0;
直接访问Unix进程表,类似ps命令。
#!/usr/bin/perl
use strict;
use Proc::ProcessTable;
my $pt = new Proc::ProcessTable;
foreach(reverse sort @{$pt->table})
{
print $_->pid, " => ";
print $_->cmndline, "\n";
}
exit 0;