Bonjour à tous,

Je m'exerce au PERL à travers la création d'un petit script pour mon serveur Nagios.
J'ai l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Can't find string terminator "EOF" anywhere before EOF at check_disque.pl line 15.
Mon script est le suivant :
Code PERL : Sélectionner tout - Visualiser dans une fenêtre à part
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 !