[langage] optimisation du code
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;
} |