Perl fork 函数

描述

该函数使用 fork() 系统调用来派生一个新进程。任何共享套接字或文件句柄都会在进程之间复制。您必须确保等待您的孩子，以防止形成“僵尸”进程。

句法

以下是该函数的简单语法 -

fork

返回值

如果 fork 失败，此函数将返回 undef；如果成功，则将子进程 ID 返回给父进程；如果成功，则将 0 返回给子进程。

例子

以下是显示其基本用法的示例代码 -

#!/usr/bin/perl

$pid = fork();
if( $pid == 0 ) {
   print "This is child process\n";
   print "Child process is existing\n";
   exit 0;
}
print "This is parent process and child ID is $pid\n";
print "Parent process is existing\n";
exit 0;

执行上述代码时，会产生以下结果 -

This is parent process and child ID is 18641
Parent process is existing
This is child process
Child process is existing