怎么查詢程序的process id

kingfighters

有一個(gè)需求，現(xiàn)在是需要查詢某個(gè)程序的pid，我實(shí)在不想再perl里面調(diào)用`pe -ef | grep core| grep -v grep`然后去再用awk取第二個(gè)字段，感覺這樣好傻。。

不知道Perl里面是否有更好的實(shí)現(xiàn)方式？

kingfighters

core是需要查詢的process名稱，這些名稱都是獨(dú)有的

sjdy521

自己遍歷/proc目錄？

1. http://www.72891.cn/thread-2199161-1-1.html

復(fù)制代碼

kingfighters

回復(fù) 3# sjdy521

有趣，謝謝提醒，可以遍歷這個(gè)目錄中所有目錄，找到目錄中exe文件指向的符號鏈接，如果匹配的到，那么就是當(dāng)前的運(yùn)行的pid。。。

我試試看這樣行不行。


   

kingfighters

http://blog.csdn.net/turkeyzhou/article/details/6704584

這個(gè)blog對于proc目錄有一個(gè)更詳細(xì)的描述

mcshell

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use warnings;
   
4. exit( main(@ARGV) );
   
5. 
   
6. sub main {
   
7.     my $Phash;
   
8.     my $ProcessName = shift;
   
9.     my $PROC_DIR    = "/proc";
   
10.     chdir $PROC_DIR;
    
11.     my @pids = glob "[0-9]*";
    
12.     for my $pid (@pids) {
    
13.         open( FH, "$pid/cmdline" ) or die "Can't $pid file $!";
    
14.         $Phash->{$pid} = $_ while <FH>;
    
15.     }
    
16.     delete $Phash->{"$$"};
    
17.     for my $pid ( keys %$Phash ) {
    
18.         print $pid, "\n" if $Phash->{$pid} =~ /$ProcessName/;
    
19.     }
    
20.     return 0;
    
21. }
    

復(fù)制代碼

1. ./process_grep.pl  core

復(fù)制代碼

回復(fù) 1# kingfighters


   

sjdy521

回復(fù) 4# kingfighters


    自己寫來寫去不如用現(xiàn)成的模塊,相當(dāng)于自己寫了個(gè)ps命令，這樣真的有意思嗎。。

1. Proc::ProcessTable

復(fù)制代碼

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. }  

復(fù)制代碼