Bonjour.
J'ai besoin d'ajouter un zéro après une référence arrière dans une chaîne de remplacement, comme ceci :
le but est, si par exemple je donne en entrée la chaîne "abcde", d'obtenir "ab0".
Code : Sélectionner tout - Visualiser dans une fenêtre à part s/(.{2}).*/$10/;
Mais j'ai le message d'erreur suivant:
"Use of uninitialized value in substitution iterator at test.pl line 5"
Si je mets une lettre à la place du zéro, tout marche bien, par exemple:
Ceci me donne bien "abZ", mais par contre avec un zéro il semble que Perl croie que je cherche la parenthèse n° 10 et non la n° 1.
Code : Sélectionner tout - Visualiser dans une fenêtre à part s/(.{2}).*/$1Z/;
J'ai essayé de délimiter mon $1 par des parenthèses, des accolades, mais c'est pas ça.
Quelqu'un saurait quoi faire s'il vous plaît ?
Partager