[RESOLU] [Perl] Substitution de caractère

[steve419]

Bonjour,

j'ai un soucis en perl, et je ne connais vraiment pas bien ce langage :(...

voici mon problème :

j'ai dans une variable nommé headline la valeure suivante :

BSC,SITE,CELL,Time,Alias,11601(Available SDCCH total number),11602(Unavailable SDCCH total number),11603(SDCCH attempt total number), ... (les ... ça veut dire qu'il y a encore d'autres "," derrière...)

j'aimerai transformer cette chaine en :

BSC,SITE,CELL,Time,Alias,c11601,c11602,c11603, ...

en gros je veux mettre des "c" devant les chiffres et enlever la fin de la chaine jusqu'au prochain séparateur ","

j'ai testé :

$headline =~ s/(\d+\()/c$1/g;

mais j'ai comme résultat :

BSC,SITE,CELL,Time,Alias,c11601,c11602(Unavailable SDCCH total number),c11603(SDCCH attempt total number),...

donc j'ai toujours les parenthèses avec la description que je ne veux pas :( , le traitement correct a été fait que sur la 1ère valeure matchée et sur les autres j'ai juste les "c".

comment je puis-je me dépatouiller ?

quelqu'un a t'il une idée ??

par avance je vous remercie

[theocrite]

$headline =~ s/(\d+)[^,]*/c$1/g;

[steve419]

merci theocrite pour ton aide,

cette expression fonctionne

[Quarky]

[steve419]

et bien je voudrais bien mais je ne vois pas le bouton "editer le titre du sujet"

[Quarky]

Sous ton premier message, clic sur puis édition complète.

Tu auras alors accès au titre.

[steve419]

voila, thank you

[theocrite]

Tu as compris l'expression au moins ?

[steve419]

oui je pense...

[^,]* veut dire tout sauf le caractère "," 0 ou plusieurs fois.

ce "," permet bien de découper chaque token...

en te remerciant encore une foi de plus pour ton aide !