Как убить запущенные потоки и сохранить приложение perl в живых?

Question

Использование async для темы в Perl сценарий мне нужно сделать некоторую параллельную функциональность, однако я должен установить лимит времени для исправления таких нитей (например, не более 5 сек). Мне нужно убить все запущенные потоки, если они работают дольше, но все равно сохранить программу в активном состоянии. Мой код:

use threads ('yield', 
       'exit' => 'threads_only', 
       'stack_size' => 2*16384); 
use threads::shared; 
use Time::HiRes qw/sleep/; 

... 

$start = [Time::HiRes::gettimeofday()]; 
my $running :shared = 0; 
foreach ($entry) { 
    async(
    sub { 
      local $SIG{KILL} = sub { threads->exit }; 
      { lock $running; ++$running }; 

      ... 

      { lock $running; --$running }; 
     }, 
    $_)->detach; 
} 

while ($running) { 
    sleep 0.005; 
    last if (Time::HiRes::tv_interval($start) > 5); 
} 

if ($running) { 
    my @running = threads->list(threads::running); 
    foreach (@running) { 
    $_->kill('KILL')->detach; 
    } 
} 

print "I am still alive\n"; 

Есть ли лучший способ, как убить запущенные потоки и сохранить приложение в живых?

Answer 1

Не делайте этого. Кодируйте потоки, чтобы они выполняли только работу, которую вы хотите сделать, и завершаете себя, когда для них нет работы. Не пытайтесь войти со стороны и убить их. Это никогда не срабатывает.

Answer 2

async возвращает объект потока, который вы можете назвать kill on. Просто надавите на массив и убейте их потом.

http://perldoc.perl.org/threads.html

Лучше дизайн, вероятно, будет иметь нити убить себя после такого количества времени, хотя.