[langage] optimisation du code

Version imprimable

Bonjour,

est ce que quelqu'un pourrait m'aider à optimiser mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
$CurFile= "fichier= toto.txt;,";
my $Ligne;
my $Ficjoint;
my Ficjoints;
 
if ($Ligne =~ /$CurFile/) {
   $Ligne =~ s/;,$//;    # supprime les ;,
   $Ligne =~ s/;$//;     # supprime les ,
   $Ligne =~ s/ //g;     # supprime les espaces
   $Ligne =~ (/=(.+)$/);  # recupére tous les caractéres apres le signe=
   $Ficjoint = "$1" ;
   $Ficjoint = "${Ficjoint}" ;
   $Ficjoints = "${Ficjoints},$Ficjoint";
   $Ficjoints =~ s/ //g;
   $Ficjoints =~ s/^,//g;
}

Une erreur:

my Ficjoints; devrait être my $Ficjoints;

plusieurs lignes inutiles:

$Ficjoint = "${Ficjoint}" ; inutile, car tu viens de faire $Ficjoint = "$1" ;
de plus les guillemets sont inutiles !

$Ficjoints =~ s/ //g; inutile, car tu as déjà éliminé tous les espaces avant

$Ficjoints =~ s/^,//g; ne devrait être executé qu'une fois à la fin de la boucle (je suppose que tu es dans une boucle sinon ca n'a aucun intéret !)

voila comment optimiser un peu :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 $CurFile= "fichier= toto.txt;,"; my $Ligne; my $Ficjoints = ''; if ($Ligne =~ m/$CurFile/) { $Ligne =~ s/;,?$//go; # supprime les ;, et les ; $Ligne =~ s/ //g; # supprime les espaces if ($Ligne =~ m/=(.+)$/o) # recupére tous les caractéres apres le signe= { $Ficjoints .= ',' . $1; } } # puis, à la fin de la boucle $Ficjoints =~ s/^,//g;

15/11/2006, 12h18
vince2005

ça veut dire quoi "go" ?? à la fin

merci
15/11/2006, 12h47
MarneusCalgarXP
Citation:

Envoyé par vince2005

ça veut dire quoi "go" ?? à la fin

merci
- g pour global, la regexp va s'executer autant de fois que l'expression est trouvée
- o pour compilation, la regexp ne sera compilée qu'une seule fois à la première execution, ensuite elle restera en cache pour utilisation ultérieure. Pratique dans les boucles !