怎么查询程序的process id

sjdy521

自己遍历/proc目录？

1. http://bbs.chinaunix.net/thread-2199161-1-1.html

复制代码

sjdy521

回复 4# kingfighters


    自己写来写去不如用现成的模块,相当于自己写了个ps命令，这样真的有意思吗。。

1. Proc::ProcessTable

复制代码

1. # A cheap and sleazy version of ps
   
2. use Proc::ProcessTable;
   
3. 
   
4. $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
   
5. $t = new Proc::ProcessTable;
   
6. printf($FORMAT, "PID", "TTY", "STAT", "START", "COMMAND");
   
7. foreach $p ( @{$t->table} ){
   
8.    printf($FORMAT,
   
9.           $p->pid,
   
10.           $p->ttydev,
    
11.           $p->state,
    
12.           scalar(localtime($p->start)),
    
13.           $p->cmndline);
    
14. }
    
15. 
    
16. 
    
17. # Dump all the information in the current process table
    
18. use Proc::ProcessTable;
    
19. 
    
20. $t = new Proc::ProcessTable;
    
21. 
    
22. foreach $p (@{$t->table}) {
    
23.   print "--------------------------------\n";
    
24.   foreach $f ($t->fields){
    
25.     print $f, ":  ", $p->{$f}, "\n";
    
26.   }
    
27. }  

复制代码