fork

fork()函数: 
作用:进程复制函数。 
用法:$pid=fork();    
讲解: 
无参数；当本进程为父进程时返回值为子进程的PID值，当进程为子进程时返回值为0。如果fork失败，则$pid是undefined.

#!/usr/bin/perl -w

use strict;

defined(my $pid = fork()) or die "Fork process failured:$!\n";
unless($pid){
        system "date";
        sleep(3);
        print "Exit child after 3 sec\n";
        exit();
}
waitpid($pid, 0);
system "date";

print "exit parent\n";

[root@localhost perl_scripts]# perl fork_1.pl
Fri Aug 26 13:39:09 CST 2011
Exit child after 3 sec
Fri Aug 26 13:39:12 CST 2011
exit parent

如果不在父进程中提供waitpid函数的话，父进程会在成功创建子进程后不等待子进程执行完毕，立即执行其余的代码，这样的话执行的结果如下：

# perl fork_1.pl
Fri Aug 26 13:39:09 CST 2011
Fri Aug 26 13:39:09 CST 2011
exit parent!
# Exit child after 3 seconds wait!

fork以后，子进程从fork点开始和主进程运行相同的程序，所以可以通过测试$pid来使主进程和子进程运行不同的程序，子进程所做的工作结束后应该退出，不然会继续运行if代码块以后的主进程的程序，这样会运行两次主进程的程序。

#!/usr/bin/perl -w

        my $pid = fork();
        if (not defined($pid)){
           print "not successful\n";
        }elsif($pid != 0) {
                print "is parent\n";
        } else {
                # this is the child process
                print "is child\n";  #子进程退出，会继续运行if一下的程序。
        }

        print 'program after "if"'."\n" #会打印两次，一次是主进程打印，一次是子进程打印的。

调用fork后有两个名字一样的进程在运行。可是运行的code是不一样的。
$pid 可以为0， 不为0的数，或undefined.

#!/usr/bin/perl -w
use strict;

my $pid = fork();
if (not defined($pid)){
    print " not avilable\n";
}elsif($pid == 0){
    print "the child\n";
    sleep(2);
    exit();
}else{
    waitpid($pid, 0);
    print "parent parent\n";
}
#}
print "HIYA\n";

the child
parent parent
HIYA

其实fork的时候已经两个分支了，数据段被复制了一份，因此pid有两份

执行pid=fork()时，返回值赋给pid在两个进程中运行，

fork会返回给父进程的那个> 0的值，告诉调用者新建进程的pid
子进程的fork返回值是0

更不用说if...else的比较也是在两个进程中都做的了

为什么 I'm child 和 I'm parent 都会被显示？这是因为 fork 调用时， 当前的进程会从 fork 的位置一分为二，fork 对两个进程的返回值不同。 在父进程中 fork 返回子进程(即另一个进程)的进程id，而在子进程中 fork 返回 0。 上例的执行过程如下图。

上例中执行到 Program started 时，只有一个进程 8934，而执行到 fork 时， 进程分为两个，父进程为 8934，子进程为 8935。接下来父进程执行 if 分支， 输入“I'm parent..”，而子进程执行 else 分支，输出 “I'm child”。

在父进程中利用 waitpid 函数。该函数回收指定进程的资源， 并返回已结束进程的进程id。若指定进程不存在，则返回 -1。