Proc::Fork产生的父子进程ID怎么没变化

lovebbs

我的Proc::Fork版本：0.61

1. #!/usr/bin/perl -w
   
2. 
   
3. use Proc::Fork;
   
4. 
   
5. child {
   
6.         print "this is child\n";
   
7.         print "child id ".getppid()."\n";
   
8. }
   
9. parent {
   
10.         my $child_pid = shift;
    
11.         print "this is parent\n";
    
12.         print "parent id ".getppid()."\n";
    
13.         waitpid $child_pid, 0;
    
14. }
    

复制代码

多次运行，总是一样的结果：

1. $ perl procfork.pl
   
2. this is parent
   
3. parent id 11734
   
4. this is child
   
5. child id 12777

复制代码

我的问题是，为什么多次运行了，进程ID都没变化？

zhlong8

是不是该用 $$ ?

lovebbs

刚说自己解决了，就被高人占了沙发。
查了一下perl文档：
http://perldoc.perl.org/functions/getppid.html
getppid

Returns the process id of the parent process.

Note for Linux users: on Linux, the C functions getpid() and getppid() return different values from different threads. In order to be portable, this behavior is not reflected by the Perl-level function getppid(), that returns a consistent value across threads.

果然的，用$$就好了。