Perl fork函数

Perl中的fork函数是用于创建子进程的函数，它会复制当前进程的所有资源和状态，并在子进程中执行指定的代码。fork函数返回值有两种情况：

1. 在父进程中，fork函数返回新创建的子进程的进程ID（PID）。
2. 在子进程中，fork函数返回0。

示例代码：

my $pid = fork();
if ($pid == 0) {
    # 子进程
    print "This is child process\n";
} elsif ($pid > 0) {
    # 父进程
    print "This is parent process, child PID is $pid\n";
} else {
    # fork失败
    die "fork failed: $!\n";
}

在上面的代码中，如果fork函数成功创建了子进程，那么父进程会输出子进程的PID，而子进程会输出自己是子进程。如果fork函数失败，那么die语句会输出错误信息。