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

如果您想使用警报来使系统调用超时，您需要使用 eval/die 对。

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

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

编辑：查看 mob 对问题的回答：Perl threads with alarm

另见thread safe alarms上的讨论。