Getopt::Long option unique

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.

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.

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

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 ;)

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.

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:

---

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.

:ccool::ccool:

Mmm, la solution est bien, mais niveau "lourdeur", elle me semble similaire à celle de Djibril...

c'est sûr.

Oui mais à la re-lecture, elle est plus facile parce que au moins tu vois que ton argument ne dois contenir qu'une seule et unique valeur.

Enfin ce n'est que mon avis personnel ;-)