Perl 中如何使用 fork 创建子进程？

推荐答案

在 Perl 中，可以使用 fork 函数来创建子进程。fork 函数会返回两次：一次在父进程中返回子进程的 PID，一次在子进程中返回 0。如果 fork 失败，则返回 undef。

// www.javascriptcn.com code example
my $pid = fork();

if (!defined $pid) {
    die "无法创建子进程: $!";
} elsif ($pid == 0) {
    # 子进程代码
    print "这是子进程，PID: $$\n";
    exit;
} else {
    # 父进程代码
    print "这是父进程，子进程的PID: $pid\n";
    waitpid($pid, 0);  # 等待子进程结束
}

本题详细解读

fork 函数的工作原理

fork 函数会创建一个与当前进程几乎完全相同的子进程。子进程从 fork 调用后的代码开始执行，并且拥有与父进程相同的内存、文件描述符等资源。

• 在父进程中，fork 返回子进程的 PID。
• 在子进程中，fork 返回 0。
• 如果 fork 失败，返回 undef，并且可以通过 $! 获取错误信息。

代码解析

1. 创建子进程：

   my $pid = fork();

   这行代码调用 fork 函数，创建子进程。

2. 错误处理：

   if (!defined $pid) {
       die "无法创建子进程: $!";
   }

   如果 fork 失败，程序会终止并输出错误信息。

3. 子进程代码：

   } elsif ($pid == 0) {
       print "这是子进程，PID: $$\n";
       exit;
   }

   如果 fork 返回 0，表示当前代码在子进程中执行。子进程会输出自己的 PID，然后通过 exit 退出。

4. 父进程代码：

   } else {
       print "这是父进程，子进程的PID: $pid\n";
       waitpid($pid, 0);
   }

   如果 fork 返回子进程的 PID，表示当前代码在父进程中执行。父进程会输出子进程的 PID，并通过 waitpid 等待子进程结束。

注意事项

• fork 创建的子进程会继承父进程的所有打开的文件描述符，因此在子进程中可能需要关闭不需要的文件描述符。
• 子进程和父进程是并发执行的，因此需要注意同步问题。
• 如果父进程不等待子进程结束，子进程可能会成为“僵尸进程”。使用 waitpid 可以避免这种情况。