Discussion :

[vince2005]

Bonjour,

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

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
 
$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;
}

[MarneusCalgarXP]

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 :

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

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;

[vince2005]

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

merci

[MarneusCalgarXP]

ç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 !