Выходное сообщение Perl TIMEOUT

Question

Я программирую скрипт perl для мониторинга базы данных с Nagios. Я использую функцию будильника из библиотеки Time :: HiRes для таймаута.

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

Все работает нормально. Дело в том, что я хочу, чтобы изменить выходное сообщение потому что это возвращает «Temporizador» и если я делаю

echo $? 

Возврат 142. Я хочу, чтобы изменить сообщение для того, чтобы сделать «выход 3», поэтому он может быть признанный Nagios.

Уже пробовал 'eval', но не работает.

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.