multithreading - Perl中的线程超时

Question

我正在编写一个Perl脚本，以在5秒后退出线程，如下所示。但是我无法从if条件打印消息。

脚本的输出是“闹钟”

线程超时时如何从父进程打印正确的错误消息。

#!/usr/bin/perl
use strict;
use warnings;
use threads;

my $th   = threads->create( \&sub1 );
my $thid = $th->tid();

eval
{
    $SIG{'KILL'} = sub
    {
        if ( $th->is_running() )
        {
            print "timed out, exiting the thread $thid\n";
            $th->exit();
        }
    };
    alarm(5);
    $th->join();
};

sub sub1
{
    my $i = 0;
    while ( $i == 0 )
    {
    }

}

Answer 1

Documentation says

如果要使用警报使系统调用超时，则需要使用评估/模具对。

或者，您可以使用Sys::SigAction并执行以下操作

use Sys::SigAction qw( timeout_call );
if ( timeout_call( 5 ,sub { $retval = DoSomething( @args ); } )
{
   print "DoSomething() timed out\n" ;
}

编辑:看到暴民对问题的答案: Perl threads with alarm

另请参阅有关 thread safe alarms的讨论。