Исходное сообщение
"Модуль на Perl для Nagios" Отправлено vagner, 13-Май-09 09:19
Добрый день! Прошу помощи в проверке написанного скрипта... Сам не могу разобраться в чем проблема:( В перле я новичек, поэтому некоторые куски брал из инета... Суть ошибки: serverbsd# ./check_cpu syntax error at ..../nagios/check_cpu line 7, near "= ;" Excution of ..../nagios/check_cpu aborted due to compilation errors. Собственно исходный код: serverbsd# cat ..../nagios/check_cpu #! /usr/bin/perl -w use strict; my $file = '/var/mbmon-nagios'; my $line; open FD, $file; ######################### # Строка в которой ошибка ######################### $line = ; close FD; my ($TEMP_proc1, $TEMP_proc2, $FAN_speed_proc1, $FAN_speed_proc2, $nagios_data, $nagios_status, $exit_code); my @arg; @arg = split(/;/, $line); $arg[0] =~ /^TEMPproc1:(.*)$/; $TEMP_proc1 = $1; $arg[1] =~ /^TEMPproc2:(.*)$/; $TEMP_proc2 = $1; $arg[2] =~ /^FANspeed_proc1:(.*)$/; $FAN_speed_proc1 = $1; $arg[3] =~ /^FANspeed_proc2:(.*)$/; $nagios_data = sprintf("|TEMP_proc1=%f;;;    TEMP_proc2=%f;;;    FAN_speed_proc1=%f;;;    FAN_speed_proc2=%f;;;",$TEMP_proc1,$TEMP_proc2,$FAN_speed_proc1,$FAN_speed_proc2); if ( $TEMP_proc1 == 0 ) {     $nagios_status = "CPU status: CRITICAL, temp_proc1 $TEMP_proc1 %";     $exit_code = 2; } elsif ( $TEMP_proc1 < 5 ) {     $nagios_status = "CPU status: WARNING, temp_proc1 $TEMP_proc1 %";     $exit_code = 1; } else {     $nagios_status = "CPU status: OK, temp_proc1 $TEMP_proc1 %";     $exit_code = 0;     } print $nagios_status . $nagios_data; exit $exit_code; И вспомогательный файл откуда берутся данные: serverbsd# cat /var/mbmon-nagios TEMP_proc1:33.0;TEMP_proc2:34.0;FAN_speed_proc1:1670;FAN_speed_proc2:1962 Буду премного благодарен за помощь!