perl如何结束一个线程

Question

我是 perl 新手，我有一个关于 perl 线程的问题。

我正在尝试创建一个新线程来检查正在运行的函数是否超时，我的做法如下。

逻辑是 1.创建一个新线程 2.运行main函数，看看是否超时，如果是，就杀死它

示例代码：

$exit_tread = false;      # a flag to make sure timeout thread will run
my $thr_timeout = threads->new( \&timeout );  
execute main function here;                

$exit_thread = true       # set the flag to true to force thread ends
$thr_timeout->join();      #wait for the timeout thread ends

超时功能代码

sub timeout
{

$timeout = false;
my $start_time = time();
while (!$exit_thread)
{

    sleep(1);                 
    last if (main function is executed);

    if (time() - $start_time >= configured time )
    {
        logmsg "process is killed as request timed out";
        _kill_remote_process();
        $timeout = true;   
        last;         
    }
}    
}

现在代码正在按我的预期运行，但我只是不太清楚代码 $exit_thread = true 是否有效，因为在 while 循环的末尾有一个“last”。

谁能给我答案？

谢谢

Answer 1

假设正确的伪代码是这样的：

sub timeout
{

$timeout = false;
my $start_time = time();
#$timeout instead of $exit_thread 
while (!$timeout)
{

    sleep(1);                 
    last if (main function is executed);

    if (time() - $start_time >= configured time )
    {
        logmsg "process is killed as request timed out";
        _kill_remote_process();

        $timeout= true;   
        last;         
    }
}    
}

那么，不，调用 last 不会设置 $timeout 变量 - 它只会从调用它的点离开循环。

这是在回答你的问题吗？