Perl Fork的问题

今天因为做到系统里面的一个功能，需要用到终止的过程，所以用到Fork的使用。

公司里一大牛被我问烦了，甩了一句：“你懂不懂写代码？你到底懂不懂啊！”

一瞬间不知道怎么说话了，对进行这块研究的真心不深入，所以虚心问了下，换了这结果。

心里挺不是滋味，后续上Q问了下其它哥们，用得也不多，所以知道的也很有限，所以我只能发帖了。

感谢CU上的 laputa73 童鞋给我解答该疑惑，终于搞明白了。对此MARK一下，方便以后使用。

#!/usr/bin/perl -w
my $pid = fork();
if (!defined($pid)) {
      print "Error in fork: $!";
      exit 1;
}
if ($pid == 0) {
  # 后执行，在这块加入实际的代码执行。
   print "$pid\n";
} else {
  # 先执行，把PID加入到数据库，如果要终止脚本，直接KILL掉这个PID整个脚本就结束了。
   print "- - !$pid\n";
}