Bonjour à tous,
Je m'exerce au PERL à travers la création d'un petit script pour mon serveur Nagios.
J'ai l'erreur suivante :
Can't find string terminator "EOF" anywhere before EOF at check_disque.pl line 15.
Mon script est le suivant :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| #!/usr/bin/perl
#=====================================================================
# Auteur : Admin
# Date : 13/03/2022
# But : plugin Nagios pour vérifier l'espace disque utilisé
#=====================================================================
# Module à utiliser
use strict;
use warnings;
use Nagios::Plugin;
use feature qw(switch say);
use Getopt::Long;
# Détails de l'écran d'aide
my $help = <<EOF;
Plugin Nagios pour contrôler l'espace disque
usage: $0 -w Warning --c Critical
Options:
-h, --help
L'écran de l'aide
-w, --warning=INTEGER
Le seuil d'avertissement
-c, --critical=INTEGER
Le seuil critique
exemples:
$0 -w 80 -c 90
EOF
my $warning=0;
my $critical=0;
my $exit=0;
# Récupération des valeurs de paramètres
my $result = GetOptions(
"w|warning=i"=> \$warning,
"c|critical=i" => \$critical,
"h|help" => \$help,
);
... |
Merci d'avance les perleux !
Partager