Code plus court

Version imprimable

Code plus court

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

Code:

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

10/06/2016, 12h35
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.

Bonjour,

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

Code:

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.

Citation:
Envoyé par Lolo78
Bonjour,

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

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 ;)

13/06/2016, 17h52
Lolo78

Citation:

Envoyé par Philou67430

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.

Citation:

Envoyé par Philou67430

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.

Citation:
Envoyé par Lolo78
Bonjour,

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

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

14/06/2016, 16h25
Philou67430

Citation:

Envoyé par Lolo78

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 :weird: