利用perl研究fork函数

alonli

　　1  #!/bin/perl
　　2  $return=fork;
　　3  if ($return == 0){
　　4  print "this is the child process;return value is $return.\n";
　　5  }
　　6  elsif (defined $return){
　　7  print "parent process:return pid is $return.\n";
　　8  }
　　9  else {
　　10  die "fork error:$!\n";
　　11  }
　　12  print "from now no,everything will be outputed twice.\n";
　　13  print "research fork function.\n"
　　[root@stationx perl]# perl f.pl
　　this is the child process;return value is 0.
　　from now no,everything will be outputed twice.
　　research fork function.
　　parent process:return pid is 4440.
　　from now no,everything will be outputed twice.
　　research fork function.
　　结论：首先，fork行数执行成功将返回值0赋值给return变量，然后从脚本中的第三行到脚本末尾都至于fork出来的子程序中，全部在fork出来的子程序中运行了一边。等fork出来的子程序执行结束后，将fork子程序的pid返回给父程序并将值赋给了return变量，然后从第3行到脚本末尾重新回到了父程序中进行执行。
　　以前对这个fork函数不是很了解，通过这个perl脚本有点了解fork函数了。