在完成时或在指定时间之后结束线程，以 Perl 中先发生者为准

Question

我在 Perl 线程方面遇到了一些问题，需要您的帮助。

我想在 perl 中运行一些任务 [adb 执行一些命令]。我的要求是在执行命令完成后退出循环/线程，或者在指定时间 [比如 3 小时] 后终止执行任务本身。为此，我正在尝试使用：线程

任务 1 - 将执行一些事情 - 可能需要更少或更多的时间 任务 2 - 3 小时计时器

所以它正在部分工作。我的意思是一旦 ADB 任务完成就退出循环，而不是其他方式。

<pre>
use threads;
    my $thr = threads->create(\&sub1);   # Spawn the thread
    $thr->detach();   # Now we officially don't care any more
    my $thr = threads->create(\&sub2);   # Spawn the thread
    $thr->join();   
    #sleep_string(10);        # Let thread run for awhile
    sub sub1 {
       sleep(10800); 
    }        
    sub sub2 {
       Execute ADB task
    }        
</pre>

Answer 1

从 cmets 开始，我的建议是根本不要线程。这看起来就像你正在运行的一个简单的系统命令，并且你想在超时后终止。

所以我会这样处理：

#!/usr/bin/perl

use strict;
use warnings;

alarm 3; 
my $pid = open ( my $output_from_proc, "-|", "tail -f /var/log/messages" ); 
$SIG{'ALRM'} = sub { 
    print "Killing $pid because of timeout\n"; 
    kill 15, $pid 
    undef $SIG{'ALRM'}; #irrelevant unless you reuse alarm
};
print <$output_from_proc>; 
waitpid ( $pid, 0 ); 

open 作为可执行文件打开，并执行它自己的 fork - 并通过 $output_from_proc 返回 STDOUT。您设置了一个“ALRM”信号处理程序。 alarm 请求内核在指定时间之后向您发送SIGALRM（它非常精确，但对于超时来说已经足够了）。

当你的ALRM 信号到来时，进程被杀死。如果你真的想要，这应该在一个线程中工作，但我会尽量避免它。