Discussion :

[vince2005]

Bonjour;

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

Code :

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

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

[Lolo78]

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 :

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

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 :

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

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 :

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

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.