Oui, tu as raison. Je te présente mes excuses et j'espère que cela ne t'a pas fait perdre trop de temps mais à force de modifier mon programme dans tous les sens pour essayer de changer et de rechanger de regexp, j'avais laissé le 'print $sequence' de mes substitutions sans voir que tu avais récupéré la variable dans $subseq. Pardon.
Je suppose que cette expression régulière est plus performante que mes 2 substitutions, je vais la garder en mémoire pour la prochaine utilisation, merci beaucoup pour le temps que vous avez tous deux passé sur ce problème. Je vais clore le sujet. Quand je vois comme vous êtes doués en Perl, je me dis que j'ai encore énormément de chemin à faire, tant mieux car ça serait triste de ne plus pouvoir progresser.
Partager