optimisation code condition

Bonjour,

Comment puis je faire pour réduire mon code ou le rendre plus lisible, car je souhaiterai controler toutes ces variables de mon tableau.

Code:

---

1 2 3 4 5 6 7 8 9

my $InitEnv=$InitTableau[$#InitTableau]; if ( $InitEnv ne "MOE1" && $InitEnv ne "MOE2" && $InitEnv ne "MOE2" && $InitEnv ne "MOE3" && $InitEnv ne "MOE4" $InitEnv ne "MOE5" && $InitEnv ne "MOE6" && $InitEnv ne "MOE7" && $InitEnv ne "MOE8" && $InitEnv ne "MOA1" && $InitEnv ne "FORM" && $InitEnv ne "MIGR" && $InitEnv ne "PPRD" && $InitEnv ne "PROD" ) { print "Erreur repertoire de lancement: $InitBaseRep \n" ; print "Il faut se placer dans un repertoire correspondant a l'environnement MOE1,MOA1,FORM,MIGR,PPRD ou PROD \n"; exit ; }

---

Merci d'avance

Bonsoir,

pas 100% sûr de ce que tu veux faire, mais dans ce genre de cas, je créerais sans doute un tableau ou un hachage avec les différentes valeurs possibles. Par exemple un truc du genre:

Code:

---

1 2 3 4 5 6 7

my %vals = map { $_ => 1 } qw / MOE1 MOE2 MOE3 MOE4 MOE5... MOA1 FORM .../; unless (exists $vals{$InitEnv}) { print "Erreur repertoire de lancement: $InitBaseRep \n" ; print "Il faut se placer dans un repertoire correspondant a l'environnement MOE1,MOA1,FORM,MIGR,PPRD ou PROD \n"; exit; }

---

Après, s'il y a vraiment beaucoup de MOEx, on peut aussi les créer automatiquement dans une boucle ou un map:

Code:

---

1 2	my @moe = map "MOE$_" for 1..8;

---

et utiliser le tableau ainsi créé pour la constituion du hachage.

Comme toujours, des réponses très pertinentes :ccool:.