Discussion :

[olivier1969]

Bonjour ,
Y a t-il un moyen plus court et plus clair d'écrire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
foreach $ligne1 (@lots){
		chomp ($ligne1);
		($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n)=split (/;/,$ligne1);
		if ($e !~ /^T$/) {
			if ($e !~ /^Td$/) {
				if ($e !~ /^Tt$/) {
					if ($e !~ /^Ttd$/) {
						if ($e !~ /I/) {
							if ($e eq "P") {
								if ($a =~ /16X/) {
									if ($l != 1) {
										print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
									}
								}
								elsif ($a =~ /^FE/) {
									if ($l != 2) {
										print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
									}
								}
								elsif ($a =~ /^CENT/) {
									if ($l != 2) {
										print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
									}
								}
							}
							elsif($l != 0) {
								print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
							}
							elsif ($e =~ /C/) {
								print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
							}
							elsif ($e =~ /e/) {
								print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
							}
							elsif ($e =~ /b/) {
								print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
							}
							elsif ($e =~ /d/) {
								print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
							}
						}
					}
				}
			}
		}
	}

Merci pour vos conseils

[kolodz]

Déjà tu peux déclarer une fonction de validation du paramètre e :
Qui retour true/False en fonction de si il est valide ou non.
Cela devrai réduire déjà un peu les if présent dans le for.

[Lolo78]

Bonjour,

Il y a des tas de possibilités. En voici une (non testée):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
foreach $ligne1 (@lots){
	chomp ($ligne1);
	my ($a, $b ,$c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, $n) = split (/;/, $ligne1);
	for ($e) {
		last if /^T[td]?$/ or /^Ttd$/ or /I/;
		if ($e eq "P") {
			if (    ( $a =~ /16X/   and $l != 1)
			     or ( $a =~ /^FE/   and $l != 2)
			     or ( $a =~ /^CENT/ and $l != 2)
			   ) {
			        print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
			}
		} elsif (  $l != 0 or /C/ or /e/ or /b/ or /d/) {
			print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
		}
	}
}

C'est manifestement plus court, je ne sais si c'est plus clair pour toi, mais ça l'est à mes yeux.

A ta disposition pour expliquer ce que tu ne comprendrais pas.

Perso, je n'utiliserais pas les variables $a à $n, mais splitterais plutôt dans un tableau, mais ce n'était pas ta question.

[Philou67430]

Bonjour,

Il y a des tas de possibilités. En voici une (non testée):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
foreach $ligne1 (@lots){
	chomp ($ligne1);
	my ($a, $b ,$c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, $n) = split (/;/, $ligne1);
	for ($e) {
		last if /^T[td]?$/ or /^Ttd$/ or /I/;
		if ($e eq "P") {
			if (    ( $a =~ /16X/   and $l != 1)
			     or ( $a =~ /^FE/   and $l != 2)
			     or ( $a =~ /^CENT/ and $l != 2)
			   ) {
			        print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
			}
		} elsif (  $l != 0 or /C/ or /e/ or /b/ or /d/) {
			print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
		}
	}
}

C'est manifestement plus court, je ne sais si c'est plus clair pour toi, mais ça l'est à mes yeux.

A ta disposition pour expliquer ce que tu ne comprendrais pas.

Perso, je n'utiliserais pas les variables $a à $n, mais splitterais plutôt dans un tableau, mais ce n'était pas ta question.

Attention Lolo, dans les conditions de last if ... et elsif ...), les regexp utilisent $_ au lieu de $e.
Par ailleurs, n'est-il pas plus simple de remplacer le for ($e) { last if cond par un unless cond ?
Pour ce qui est du split, il peut être plus "court" d'écrire print RES "@tableau\n";, ce qui du coup, peut devenir pertinent pour la question posée

[Lolo78]

Attention Lolo, dans les conditions de last if ... et elsif ...), les regexp utilisent $_ au lieu de $e.

Ce n'est pas un problème puisque le for ($e) { ... donne la valeur de $e à $_. C'est d'ailleurs le but, simplifier pas moins de 7 expressions régulières et pouvoir utiliser last pour limiter le niveau d'imbrication des if. Mais la stratégie est bien sûr discutable, on peut en adopter une autre.

Pour ce qui est du split, il peut être plus "court" d'écrire print RES "@tableau\n";, ce qui du coup, peut devenir pertinent pour la question posée

[/QUOTE]

Effectivement.

[Philou67430]

Ce n'est pas un problème puisque le for ($e) { ... donne la valeur de $e à $_. C'est d'ailleurs le but, simplifier pas moins de 7 expressions régulières et pouvoir utiliser last pour limiter le niveau d'imbrication des if.

Bon sang, mais c'est bien sûr

[olivier1969]

Bonjour,

Il y a des tas de possibilités. En voici une (non testée):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
foreach $ligne1 (@lots){
	chomp ($ligne1);
	my ($a, $b ,$c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, $n) = split (/;/, $ligne1);
	for ($e) {
		last if /^T[td]?$/ or /^Ttd$/ or /I/;
		if ($e eq "P") {
			if (    ( $a =~ /16X/   and $l != 1)
			     or ( $a =~ /^FE/   and $l != 2)
			     or ( $a =~ /^CENT/ and $l != 2)
			   ) {
			        print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
			}
		} elsif (  $l != 0 or /C/ or /e/ or /b/ or /d/) {
			print RES "$a $b $c $d $e $f $g $h $i $j $k $l $m $n\n";
		}
	}
}

C'est manifestement plus court, je ne sais si c'est plus clair pour toi, mais ça l'est à mes yeux.

A ta disposition pour expliquer ce que tu ne comprendrais pas.

Perso, je n'utiliserais pas les variables $a à $n, mais splitterais plutôt dans un tableau, mais ce n'était pas ta question.

Merci , ça marche nickel , du coup je conserve , et c'est bien plus court .

C'est vrai qu'en reprenant ce code existent , je n'ai pas pensé au "or" .

La logique .........

Re MERCI