Discussion :

[vince2005]

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 :

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

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

[Lolo78]

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 :

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

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 :

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

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

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

[djibril]

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