1  #!/bin/perl
     2  $return=fork;
     3  if ($return == 0){
     4  print "this is the child process;return value is $return.\n";
     5  exec "/bin/date"or die"exec failed:$!\n";
     6  print "this line will never be outputted!\n";
     7  }
     8  elsif (defined $return){
     9  $waitting=wait;
    10  print "parent process:return pid is $return.\n";
    11  $waitting=wait;
    12  print "back in parent process.\n";
    13  print "the dead child's pid is $return.\n";
    14  }
    15  else {
    16  die "fork error:$!\n";
    17  }
    18  print "hello only once.\n";

脚本执行结果：

[root@stationx perl]# perl fork.pl
this is the child process;return value is 0.
Fri May  4 00:21:13 CST 2012
parent process:return pid is 4560.
back in parent process.
the dead child's pid is 4560.
hello only once.

在fork出的子程序中执行了一个exec（利用新代码替换当前进行的代码进行执行操作，执行完后退出，并不返回到该程序中）操作，由于exec执行完之后并不会在回到fork出的那个子程序中去，此时fork出的子程序退出，程序会返回到perl脚本（fork的父进程）中来，当然，fork子程序的pid也返回到了父进程中，然后在进行if、elsif、else结构的判断。

fork函数之所以能区别父进程和子进程，是因为它对不同的进程返回不同的值，对于子进程返回0，对于父进程返回子进程的pid，但是调用fork函数之后不能保证首先执行哪一个进程。脚本中的第九行的作用是：（虚伪的模拟下，先让fork子进程执行完，然后在去执行父进程，但是问题又来了，如果走到elsif的话，说明父进程已经开始工作了，然后exec的执行结果却出现在了父进程执行的时候，让人大费不解！！！难道是因为exec不清楚缓冲区的缘故？？？这个地方实在不懂。请高人读了该文章后能够指点迷津，小弟不胜感激！）。