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