如何解决Perl中curl GET请求超时后子进程仍运行的问题？

你的问题核心在于：Perl的alarm信号仅会中断当前Perl进程的执行逻辑，但通过反引号`启动的curl是独立的子进程——alarm触发后Perl会跳出eval块并打印错误，但后台的curl进程并不会被终止，因此会继续运行。

下面提供两种可靠的解决方式，优先推荐第一种：

方法1：直接给curl添加超时参数（推荐） #

curl本身内置了完善的超时控制参数，这是最简洁且可靠的处理方式，无需依赖Perl的信号机制：

• --max-time 30：设置整个请求的最大耗时（包含连接、数据传输全流程）为30秒
• --connect-timeout 10：单独设置连接阶段的超时时间（可选，可根据需求调整）

修改后的代码示例：

my $raw_json = `curl -X GET <some website url> -H <some parameters> --max-time 30 --connect-timeout 10`;

# 检查curl的退出状态
if ($? == 124) {
    # curl超时的专属退出码为124
    print "请求超时！\n";
} elsif ($? != 0) {
    # 处理curl的其他错误情况
    print "请求失败，curl错误码：$?\n";
} else {
    # 正常处理返回的JSON数据
    # ...
}

方法2：用Perl控制子进程并超时杀死 #

如果必须依赖Perl的alarm机制，需要在超时后主动杀死curl子进程。可以通过open启动子进程并获取PID，结合信号处理实现：

use strict;
use warnings;

my $timeout = 30;
my $raw_json = '';
my $curl_pid;

eval {
    local $SIG{ALRM} = sub { die "alarm\n" };
    alarm $timeout;

    # 启动curl子进程并获取PID
    open my $curl_fh, '-|', 'curl', '-X', 'GET', '<some website url>', '-H', '<some parameters>' 
        or die "无法启动curl进程: $!";
    $curl_pid = $curl_fh->pid;

    # 读取curl的输出内容
    while (<$curl_fh>) {
        $raw_json .= $_;
    }
    close $curl_fh;

    alarm 0;
};

if ($@) {
    if ($@ eq "alarm\n") {
        print "请求超时！\n";
        # 主动终止curl子进程
        kill 'TERM', $curl_pid if defined $curl_pid;
    } else {
        # 传播其他意外错误
        die $@;
    }
} else {
    # 正常处理返回的JSON数据
    # ...
}

• 优先选择方法1，因为curl自身的超时处理更精准，无需额外维护Perl信号逻辑
• 方法2中需确保正确获取子进程PID并在超时后杀死，避免僵尸进程残留

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