Perl alarm() 또는 Time :: Out Without Kernel SIG

Question

웹 서버와 통신하는 동안 때로는 오동작을하는 스크립트가 있습니다. 서버가 정지하거나 데이터로 응답하는 속도가 매우 느립니다.

현재 스크립트를 종료하기위한 해킹으로 - 시스템을 스레드로 넘치지 않기 위해 해킹으로 사용하고 있습니다.하지만 이것은 cron 오류가 발생합니다. sysadmin은 실제로 200 개의 이메일을 원하지 않습니다. 이것은 시스템이 넘어 졌을 때 생성됩니다.

non-OK 이탈 및 해당 이메일을 발생시키지 않는 스크립트 (또는 필요한 경우 apiQuery)를 종료하는 대체 방법이 있습니까?

Answer 1

신호 처리기에서 예외를 throw하고 다른 곳에서 catch 할 수 있습니다.

my $success = eval { 
    local $SIG{ALRM} = sub { die "Failure" }; 
    alarm 10; 
    do_something_long(); 
    alarm 0; 
    1; 
}; 
if (!$success) { 
    warn "Timeout!\n" if $verbose; 
    exit 0; 
}