Discussion :

[refreketu]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

s/(.{2}).*/$10/;

le but est, si par exemple je donne en entrée la chaîne "abcde", d'obtenir "ab0".
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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

s/(.{2}).*/$1Z/;

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.
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 ?

[Gardyen]

cette écriture marche pour moi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$str =~ s/(.{2}).*/${1}0/;
print $str;

trouvée là

[refreketu]

Ça marche ! J'avais testé {$1}, mais pas ${1}.
Merci beaucoup !

[Lolo78]

C'est une façon plus générale d'isoler le nom d'une variable de la suite d'une chaîne de caractères. Par ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "${toto}titi\n";

permet de savoir que la variable s'appelle $toto et qu'il faut lui ajouter le mot titi (sans espace), et qu'elle ne s'appelle pas $tototiti.

[Philou67430]

Pour ce qui concerne l'expression régulière demandée, une autre solution (uniquement valable à partir de perl 5.10) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$a = "abcde";
$a =~ s/.{2}\K.*/0/;

[refreketu]

Intéressant, mais en fait dans mon vrai script j'ai besoin de plusieurs références arrières, utilisées à divers endroits dans le résultat. Or si j'ai bien compris le \K ne mémorise qu'une seule chaîne: tout ce qui est à sa gauche. De toute façon, chez moi ça fonctionne bien, mais la machine de production est en 5.8.8.
D'ailleurs ça me fait penser que si je continue à faire des scripts, il faudra que je fasse gaffe à la compatibilité avec celle-ci.