Perl中的fork()函数
Perl提供了一个fork()函数，该函数对应于同名的Unix系统调用。在大多数类似Unix的平台上，fork()系统调用是可用的，Perl的fork()只是简单地调用它。在某些平台（如Windows）上，fork()系统调用不可用，可以构建Perl以在解释器级别模拟fork()。
fork()函数用于克隆当前进程。此调用将在同一点创建一个运行相同程序的新进程。它将子pid返回到父进程，将0返回到子进程，或者在fork不成功时返回。
可以在进程内使用exec()函数启动请求的可执行文件，该文件将在单独的进程区域中执行，exec()将等待它完成，然后以与该进程相同的退出状态退出。
示例
#!/usr/bin/perl
if(!defined($pid = fork())) {
#fork返回了undef，所以没有成功
die "Cannot fork a child: $!";
} elsif ($pid == 0) {
print "Printed by child process\n";
exec("date") || die "can't exec date: $!";
} else {
#fork返回0或undef
#所以这个分支是父级的
print "Printed by parent process\n";
$ret = waitpid($pid, 0);
print "Completed process id: $ret\n";
}
1;输出结果
执行上述代码后，将产生以下结果-
Printed by parent process Printed by child process Tue Sep 17 15:41:08 CDT 2013 Completed process id: 17777
可以将wait()和waitpid()作为由返回的伪进程ID进行传递fork()。这些调用将正确地等待伪进程的终止并返回其状态。如果您使用waitpid()函数在没有等待孩子的情况下进行分叉，则会堆积僵尸。在Unix系统上，可以通过将$SIG{CHLD}设置为“IGNORE”来避免这种情况，如下所示：
示例
#!/usr/bin/perl
local $SIG{CHLD} = "IGNORE";
if(!defined($pid = fork())) {
#fork返回了undef，所以没有成功
die "Cannot fork a child: $!";
} elsif ($pid == 0) {
print "Printed by child process\n";
exec("date") || die "can't exec date: $!";
} else {
#fork返回0或undef
#所以这个分支是父级的
print "Printed by parent process\n";
$ret = waitpid($pid, 0);
print "Completed process id: $ret\n";
}
1;输出结果
执行上述代码后，将产生以下结果-
Printed by parent process Printed by child process Tue Sep 17 15:44:07 CDT 2013 Completed process id: -1