如何解决Perl的alarm函数在Windows上给无输出Python命令设超时失效问题？

场景描述 #

需要在Perl脚本中运行Python命令，要求5秒未结束则终止进程，且不能使用额外Perl模块。初始代码在Python持续输出内容时超时功能正常，但执行无输出的无限循环时，脚本无法终止且无任何输出。

初始代码（无输出Python命令）：

use strict;
use warnings FATAL => 'all';

use autodie qw(open);

my $fcmd;
my $status;
my $child_pid;

eval {
    $SIG{ALRM} = sub { kill( 9, $child_pid ); die("alarm\n"); };
    alarm(5);
    
    $child_pid = open( $fcmd, "python -c \"while True: 1+1\" 2>&1 |" );
    
    while ( my $line = <$fcmd> ) {
        print("PRINT: $line\n");
    }
    
    close $fcmd;
    alarm(0); 
    $status = $?;
};

if ($@) {
    print("timeout\n");
}

为什么无输出场景下alarm信号无法生效？ #

核心原因在于Perl的行缓冲阻塞读取与系统调用重启机制：

• Perl的<$fcmd>是按行读取，默认采用阻塞式行缓冲。当Python没有输出时，Perl会一直卡在while (my $line = <$fcmd>)这行，等待输入缓冲区填满或出现换行符，进入阻塞状态。
• 虽然alarm(5)会按时触发SIGALRM信号，但Perl在处理信号后，默认会重启被中断的系统调用（也就是回到阻塞读取的状态），导致die("alarm\n")的逻辑无法正常执行，超时终止流程失效。
• 当Python持续输出时，每行内容带换行符，Perl能不断读取到数据，循环会周期性退出阻塞状态，此时SIGALRM信号才能被正常处理，触发die终止流程。

修改方案（无需额外Perl模块） #

通过替换行缓冲读取为select+sysread的组合，避免Perl长时间卡在阻塞读取，同时确保SIGALRM信号能中断阻塞操作：

use strict;
use warnings FATAL => 'all';

use autodie qw(open);

my $fcmd;
my $status;
my $child_pid;

# 定义信号处理函数：杀死子进程并抛出超时异常
$SIG{ALRM} = sub { 
    kill(9, $child_pid) if $child_pid; 
    die("alarm\n"); 
};

eval {
    # 设置5秒超时
    alarm(5);
    
    # 启动Python子进程，捕获输出
    $child_pid = open( $fcmd, "python -c \"while True: 1+1\" 2>&1 |" );
    
    # 准备select监听的文件句柄集合
    my $rin = '';
    vec($rin, fileno($fcmd), 1) = 1;
    
    while (1) {
        # 用select等待子进程输出，alarm会中断该阻塞操作
        my $nfound = select($rin, undef, undef, undef);
        last if $nfound == 0;
        
        # 读取子进程输出（按块读取，避免行缓冲限制）
        my $buffer;
        my $bytes_read = sysread($fcmd, $buffer, 4096);
        last unless $bytes_read; # 子进程正常结束
        
        print("PRINT: $buffer\n");
    }
    
    # 正常结束时关闭句柄、取消超时
    close $fcmd;
    alarm(0); 
    $status = $?;
};

# 处理异常逻辑
if ($@) {
    if ($@ eq "alarm\n") {
        print("timeout\n");
        # 回收子进程，避免僵尸进程
        waitpid($child_pid, 0) if $child_pid;
    } else {
        # 处理其他非超时异常
        die $@;
    }
}

方案说明：

1. 用select监听子进程输出句柄，代替原有的行缓冲读取，避免Perl长时间卡在无输出的阻塞状态。
2. sysread按块读取内容，不受行缓冲限制，同时能处理持续输出的场景。
3. SIGALRM信号会中断select的阻塞操作，触发信号处理函数杀死子进程并抛出异常，确保超时逻辑生效。
4. 最后通过waitpid回收子进程，避免产生僵尸进程。

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