[perl] insérer des caractères dans une chaine

Salut,

perl -e '$v = 12/1999-09/2002; ($t = $v) =~ s/(?<=)-(?=\d)/ à /g;print $t,"\n";'

ou sans le test avant et test arrière

perl -e '$v = 12/1999-09/2002; ($t = $v) =~ s/(\d)-(\d)/$1 à $2/g;print $t,"\n";'

lami20j

P.S. Le teste avant et le test arrière nous permet de regarder avant et arrière pour s'assurer qu'on a une chiffre, mais on ne capture rien.

Ce n'est pas très important dans ce cas, mais en cas de plusieurs données l'efficacité peut augmenté.

Ca marche au poil ! Merci beaucoup !

petite corréction

Au lie de

$v = 12/1999-09/2002

à écrire

$v = "12/1999-09/2002"

lami20j