Custom Creatd Perl插件出错？没有权限

Question

我是perl的新手，所以需要你帮助我尝试使用此链接创建perl插件，

http://itwarriors.com/?p=1

我在（/ usr / local / nagios / libexec）中创建了文件名check_test.pl，

#! /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中的

命令

而不是我得到错误权限被拒绝请hekp这个错误，实际上是什么错误是???

Answer 1

我认为您的脚本需要执行权限：

chmod +x check_test.pl