Perl TIMEOUT 출력 메시지

Question

나는 Nagios로 DB를 모니터링하기 위해 펄 스크립트를 프로그래밍하고있다. 타임 아웃을 위해 Time :: HiRes 라이브러리의 알람 기능을 사용하고 있습니다.

use Time::HiRes qw[ time alarm ]; 
alarm $timeout; 

모든 것이 정상적으로 작동합니다. 문제는 나는 그것이 "Temporizador"를 반환 원인 출력 메시지를 변경할와 내가

echo $? 

반환 (142)을 할 경우 내가 될 수 있도록 "3 번 출구"를 만들기 위해 메시지를 변경할 수 있습니다 Nagios에 의해 인정.

이미 '평가'를 시도했지만 작동하지 않습니다.

Answer 1

시간이 걸리는 기능은 C로 작성되어 사용자 정의 신호 처리기를 안전하게 사용할 수 없습니다.

당신은 강제로 프로그램을 종료하는 것에 대해 걱정하지 않으므로, 실행하는 데 너무 오랜 시간이 걸리면 프로그램을 강제 종료하기 위해 신호 처리기없이 alarm을 사용하고, 래퍼를 사용하여 Nagios에 올바른 응답을 제공하는 것이 좋습니다 .

변경

/path/to/program some args 

/path/to/timeout_wrapper 30 /path/to/program some args 

에 다음 timeout_wrapper입니다 :

#!/usr/bin/perl 
use strict; 
use warnings; 

use POSIX  qw(WNOHANG); 
use Time::HiRes qw(sleep time); 

sub wait_for_child_to_complete { 
    my ($pid, $timeout) = @_; 
    my $wait_until = time + $timeout; 
    while (time < $wait_until) { 
     waitpid($pid, WNOHANG) 
     and return $?; 

     sleep(0.5); 
    } 

    return undef; 
} 

{ 
    my $timeout = shift(@ARGV); 

    defined(my $pid = fork()) 
     or exit(3); 

    if (!$pid) { 
     alarm($timeout); # Optional. The parent will handle this anyway. 
     exec(@ARGV) 
     or exit(3); 
    } 

    my $timed_out = 0; 
    my $rv = wait_for_child_to_complete($pid, $timeout); 
    if (!defined($rv)) { 
     $timed_out = 1; 
     if (kill(ALRM => $pid)) { 
     $rv = wait_for_child_to_complete($pid, 5); 
     if (!defined($rv)) { 
      kill(KILL => $pid) 
     } 
     } 
    } 

    exit(2) if $timed_out; 
    exit(3) if $rv & 0x7F; # Killed by some signal. 
    exit($rv >> 8);   # Expect the exit code to comply with the spec. 
} 

가 Nagios Plugin Return Codes를 사용합니다. 시간 초과는 실제로 2을 반환합니다.

Answer 2

ALRM 신호를 처리해야합니다.

#!/usr/bin/env perl 
use strict; 
use warnings; 
use Time::HiRes qw[ time alarm ]; 

$SIG{ALRM} = sub {print "Custom message\n"; exit 3}; 

alarm 2; 
sleep 10; # this line represents the rest of your program, don't include it 

이 출력 할 것이다 : 예를 들어

18:08:20-eballes@urth:~/$ ./test.pl 
Custom message 
18:08:23-eballes@urth:~/$ echo $? 
3 

처리에 대한 설명은 확장 신호 this nice tutorial on perltricks를 확인한다.