- 论坛徽章:
- 0
|
本帖最后由 sjdy521 于 2014-05-04 17:43 编辑
回复 4# kingfighters
自己写来写去不如用现成的模块,相当于自己写了个ps命令,这样真的有意思吗。。- # A cheap and sleazy version of ps
- use Proc::ProcessTable;
- $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
- $t = new Proc::ProcessTable;
- printf($FORMAT, "PID", "TTY", "STAT", "START", "COMMAND");
- foreach $p ( @{$t->table} ){
- printf($FORMAT,
- $p->pid,
- $p->ttydev,
- $p->state,
- scalar(localtime($p->start)),
- $p->cmndline);
- }
- # Dump all the information in the current process table
- use Proc::ProcessTable;
- $t = new Proc::ProcessTable;
- foreach $p (@{$t->table}) {
- print "--------------------------------\n";
- foreach $f ($t->fields){
- print $f, ": ", $p->{$f}, "\n";
- }
- }
复制代码 |
|