Я новичок в Perl, поэтому вам нужно много помощи, я пытаюсь создать плагин Perl, используя эту ссылку,
http://itwarriors.com/?p=1
Я создал имя файла check_test.pl в (/ usr/ local / nagios / libexec),
#! /usr/bin/perl
use strict;
use Getopt::Long qw(:config no_ignore_case);
my ($host, $server, $instances);
my $result = GetOptions(
“H|host=s” => \$host,
“s|server=s” => \$server,
“i|instances=s” => \$instances,
);
print “My host IP is $host\n”;
print “My Server IP is $server\n”;
print “Times Server found are $instances\n”;
и после получения этой ошибки
[root @ localhost libexec] # ./check_test.pl -h 192.168.1.101 -s 192.168.1.110 -i 2 bash: ./check_test.pl: В доступе отказано
я пытаюсь добавить,
# 'check_test' command definition
define command{
command_name check_test
command_line $USER1$/check_test.pl -H $HOSTADDRESS$ -s 12489
}
команда в command.cfg
вместо этого яполучение разрешения на ошибку отклонено, пожалуйста, хекп за эту ошибку, что на самом деле ошибка ???