Perl中sleep后无法kill fork派生进程的问题排查

你的代码存在3个核心逻辑错误，导致无法终止目标程序：

• 分支逻辑写反：fork()的返回值规则为：父进程拿到派生的子进程PID（非0真值），子进程拿到返回值0。你把启动桌面应用的逻辑写在了if ($pid)的父进程分支里，实际是父进程阻塞执行system启动calc.exe，fork出来的子进程直接跳过分支往下执行sleep、kill逻辑，此时子进程持有的$pid值为0，根本找不到要终止的目标进程。
• PID对应关系完全错误：父进程通过system启动的calc.exe是独立派生的新进程，和fork出来的子进程没有关联，你持有的$pid是那个空跑的fork子进程的ID，根本不是calc.exe的进程ID。
• Windows平台信号不兼容：你使用的MSYS2 Perl虽然模拟了POSIX的fork接口，但Windows原生系统没有POSIX规范的SIGTERM信号，calc.exe这类原生GUI程序根本不会响应kill 'TERM'发送的信号，就算PID正确也无法终止进程。

调整分支逻辑，在子进程分支用exec启动目标程序保证PID对应，Windows下用系统自带的taskkill命令终止进程即可，修正后可直接运行的代码如下：

#!/usr/bin/perl

use utf8;
use strict;
use warnings;

my @cmd = ('calc.exe');

my $pid = fork();
die "fork() failed: $!" unless defined $pid;

if ($pid == 0) {
    # 子进程直接替换为目标程序，不额外派生进程
    exec { $cmd[0] } @cmd;
    die "启动目标程序失败: $!";
}

# 父进程等待2秒
sleep 2;

# 调用系统命令强制终止目标进程，屏蔽输出
system("taskkill /F /PID $pid >nul 2>&1");
# 回收子进程资源，避免僵尸进程
waitpid($pid, 0);

• 子进程启动目标程序必须用exec不能用system：exec会让当前进程直接加载运行目标程序，PID保持不变；system会额外再派生一层进程，导致PID和fork拿到的子进程ID不匹配。
• Windows环境下不要依赖POSIX信号终止原生程序，taskkill /F是兼容性最高的强制终止方案，不需要额外安装Perl模块。
• 终止进程后必须调用waitpid回收子进程资源，避免出现残留的僵尸进程。

内容的提问来源于stack exchange，提问作者Joel