알람이있는 Perl 스레드

Question

perl (> = 5.012) 스레드에서 알람 (또는 다른 시간 초과 메커니즘)을 작동시키는 방법이 있습니까?

Answer 1

활성 스레드를 알리는 신호 처리기를 사용하여 주 스레드에서 alarm을 실행하십시오.

use threads; 
$t1 = threads->create(\&thread_that_might_hang); 
$t2 = threads->create(\&thread_that_might_hang); 
$SIG{ALRM} = sub { 
    if ($t1->is_running) { $t1->kill('ALRM'); } 
    if ($t2->is_running) { $t2->kill('ALRM'); } 
}; 

alarm 60; 
$t1->join; 
$t2->join; 

... 

sub thread_that_might_hang { 
    $SIG{ALRM} = sub { 
     print threads->self->tid(), " got SIGALRM. Good bye.\n"; 
     threads->exit(1); 
    }; 
    ... do something that might hang ... 
} 

당신은 당신이 Alarm::Concurrent처럼 여러 개의 알람을 설정할 수있는 모듈로 보면, 각 스레드에 대해 서로 다른 알람이 필요합니다.