利用perl研究fork函数

???? 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函数了。