Question

我想理解，因为如果我运行这段代码

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

use threads;
use threads::shared;

sub mythread {
    my $end = 0; # Thread termination variable

    while(!$end) {
        eval {
            local $SIG{'ALRM'} = sub {
                print "SIGALARM received\n";
                $end = 1;
                die "Alarm!\n";
            };

            sleep(5); # Wait
        };
        die $@ unless $@ eq "Alarm!\n";
    }
}

my $end = 0; # Main termination variable
$SIG{'INT'} = sub {
    $end = 1; # Set Main termination variable
};

my $thr = threads->create( \&mythread );
while(!$end) {
    sleep(1);
    print "1 second passed\n";
}

print "Send SIGALARM to thread\n";
$thr->kill( "SIGALRM" );

print "Main Wait for thread end\n";
$thr->join();

如果我按下CTRL-C，主线程正确捕获信号，但是当发送信号到mythread睡眠时没有终止，但等待5秒，即使我将代码包裹在像Perldoc sleep这样的eval中。

Answer 1

信号只能发送到进程，而不是线程。来自$thread->kill的文档：

CAVEAT：该模块提供的线程信令功能实际上并不通过OS发送信号。它模拟Perl级别的信号，以便在适当的线程中调用信号处理程序。例如，发送$thr->kill('STOP')实际上不会挂起线程（或整个进程），但会导致在该线程中调用$SIG{'STOP'}处理程序（如上所示）。

操作系统对您的请求一无所知，因此您的sleep不会中断。

在这种情况下，您可以使用以下内容：

use Time::HiRes qw( );

sub polling_sleep {
    my ($dur) = @_;
    my $until = Time::HiRes::time() + $dur;
    while (1) {
       $dur = $until - Time::HiRes::time();
       last if $dur < 0;
       Time::HiRes::sleep($dur < 0.5 ? $dur : 0.5);
    }
}

polling_sleep(5);

没有通用解决方案。

Perl线程中断睡眠不起作用

1 个答案: