怎么查询程序的process id

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

复制代码

1. ./process_grep.pl  core

复制代码

回复 1# kingfighters