子进程中如何获得system执行的PID

yigenjin

不就是就system产生的pid大家一起探讨下嘛
另system()里加一句：echo $$ > cmd.pid
这种方法貌似也是错的
arccos2002 发表于 2010-02-08 14:50

不可能错。除非你用错。

redicaps

没戏
把system 用 fork + exec 代替

兰花仙子

非要获取的话也不是不可能，对进程表做一些文本分析。

1. $ cat system.pl
   
2. use strict;
   
3. 
   
4. my $pid = fork;
   
5. 
   
6. if ($pid) {
   
7.    print "system's pid is: ", getpid(),"\n";
   
8. 
   
9. } else {
   
10.    system "sleep 60";
    
11.    exit 0;
    
12. }
    
13. 
    
14. waitpid($pid, 0);
    
15. 
    
16. sub getpid {
    
17.    my @proc = `ps -efw|grep $0`;
    
18.    my $childid = (split/\s+/,$proc[1])[1];
    
19.    @proc = `ps -efw|grep $childid`;
    
20.    return (split/\s+/,$proc[1])[1];
    
21. }

复制代码

$ perl system.pl
system's pid is: 18859

捕获不到进程表的话另当别论（例如solaris的ps就不及时）。

yigenjin

回复 13# 兰花仙子

哈哈，仙子姐姐的方法真强！

不过貌似使用PID文件的方式更可靠更简单哦！

其实这个问题早告诉LZ了，fork + exec解决就行了，但LZ就是要研究system。