Добрый день! Прошу помощи в проверке написанного скрипта... Сам не могу разобраться в чем проблема:( В перле я новичек, поэтому некоторые куски брал из инета... Суть ошибки:
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
Буду премного благодарен за помощь!
Вариант для распечатки
Программирование под UNIX (Public)
on 13-Май-09, 09:19 
