Discussion :

[bennyboy]

Bonjour à tous,

Par défaut le module Getopt::Long accepte que l'on entre plusieurs fois le même paramètre et prend par défaut la dernière occurence.
Par exemple, mon script utilise l'option -h suivie du hostname, mais si l'utilisateur entre plusieurs fois l'option -h, alors seule la dernière occurence est prise.

Ma question n'est pas comment faire pour garder toutes les occurences (car ça c'est documenté et je l'utilise) mais plutôt comment faire pour faire planter le script si l'utilisateur utilise plusieurs fois une option qui doit être unique ?
En effet, il n'y a aucun moyen de voir qu'il a entré plusieurs fois le même paramètre (à moins de parser la ligne de commande, ce que je ne souhaite pas forcément faire

Merci à tous,

Bennyboy.

[djibril]

Je suppute que tu récupères toutes les options identiques dans un tableau. Donc tu peux calculer la taille de ce tableau et si c'est > 1, tu fais un die.

[bennyboy]

Salut Djibril,

Merci pour ton aide, mais justement je ne mets pas tout dans un tableau puisque je ne souhaite avoir qu'une seule et unique valeur.
Et pour être franc je n'ai pas du tout envie de configurer toutes mes options en mode array, juste pour tester que l'utilisateur ne fait pas le boulet à utiliser plusieurs fois une option et que si il fait le boulet alors je die ... Un peu lourd comme solution, je pensais que ce module Perl gerait, mais apparemment je me trompe, le dev n'a pas prévu ce cas (surement pour une bonne raison d'ailleurs !)

Si quelqu'un connait une autre solution, je l'en remerci d'avance,

Merci encore Djibril

[Philou67430]

Le dev n'a pas prévu ce cas, sans doute pour la raison que ce test peut être réalisé facilement à l'extérieur, comme l'a montré Djibril

[bennyboy]

Je suis d'accord qu'il est facile de trouver une solution en passant par un tableau, mais je pense que ce module perd de son intêret dans ce cas puisque toutes les variables doivent être dans un tableau et après c'est à moi de voir quel tableau ne doit contenir qu'une seule valeur!

Ou alors mes utilisateurs sont plus "graves" que le commun des mortels ;-)

Merci encore.

[bennyboy]

Bonjour à tous,

J'ai réussi à contacter le développeur pour mon problème, et il m'as donné une soluttion et comme je suis grand Seigneur, la voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 my $option;
 
 GetOptions( 'foo:s' => sub {
               die("Option already used") if defined $option;
               $option = $_[1];
             },
             ...
            );

Voilà, merci pour votre aide,

Bennyboy.