optimisation code condition

Bonjour;

Comment puis je faire pour optimiser mon code, afin que ma condition soit plus lisible.

Code:

---

1 2 3 4 5 6 7 8

my $InitEnv=$InitTableau[$#InitTableau]; if ( $InitEnv ne "EXP" && $InitEnv ne "ENV1" && $InitEnv ne "ENV2" && $InitEnv ne "ENV_REC2" && $InitEnv ne "ENV_REC3" && $InitEnv ne "ENV_4" && $InitEnv ne "ENV8" && $InitEnv ne "ENV04" && $InitEnv ne "PROD") { print "Erreur repertoire de lancement: $InitBaseRep \n" ; print "Il faut se placer dans un repertoire correspondant a l'environnement \n"; exit ; }

---

Merci

Bonsoir,

Peut-être une expression régulière:

if ( $InitEnv ne "EXP" && $InitEnv ne "ENV1" && $InitEnv ne "ENV2" && $InitEnv ne "ENV_REC2" && $InitEnv ne "ENV_REC3" && $InitEnv ne "ENV_4" && $InitEnv ne "ENV8" && $InitEnv ne "ENV04" && $InitEnv ne "PROD")

Code:

---

1 2 3

if ( $InitEnv !~ /EXP|ENV[128]|ENV_REC[23]|ENV[_0]4|PROD/) { # ... }

---

C'est beaucoup plus concis, mais certainement pas plus lisible. Avec le modificateur x, on peut l'améliorer en:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

if ( $InitEnv !~ / EXP | ENV [128] | ENV_REC [23] | ENV [_0]4 | PROD /x ) { # ... } }

---

Ce qui est déjà un peu mieux.

Mais je recommanderais plutôt de stocker tes environnements dans un hash:

Code:

---

1 2 3 4 5

my %env = map { $_ => 1 } qw / EXP ENV1 ENV2 ENV_REC2 ENV_REC3 ENV_4 ENV8 ENV04 PROD /; unless (exists $env{$InitEnv}) { # ... }

---

C'est beaucoup plus maintenable si tu dois ajouter ou supprimer un environnement permis.