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