Discussion :

[Chris_LaFouine]

le principe est tout con :

Code :

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

1
2
3
4
 
$var = "POULET";
#Traitement
print $var; #Affiche P.OULET

j'ai essayé s/^[A-Z]?/$1\./
mais ça m'affiche ".OULET"

je pense que mon expression de recherche est bonne (peut-etre qu'on peut faire plus simple, avec un \w non?), mais mon expression de remplacement à l'air mauvaise surtout le $1, je pense que c'est pas du tout ça...

[Jedai]

C'est bon, c'est juste que tu oublies de "capturer" la première lettre avec des parenthèses :

Code :

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

1
2
3
4
 
my $var = "POULET";
$var =~ s/^([A-Z]?)/$1./;
print $var; #Affiche P.OULET

Mais moi je ferais plutôt ça :

Code :

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

1
2
3
4
 
$var = "POULET";
substr $var, 1, 0, '.';
print $var; #Affiche P.OULET

Par ailleurs, si tu veux faire ça dans tous les mots d'une chaîne le problème est différent.

--
Jedaï

[Chris_LaFouine]

C'est juste le fait de mettre des parenthèses qui permettent de "capturer"?
Merci

[Jedai]

Oui, si tu veux mieux comprendre, je te conseille un petit tour du côté de perlretut ("perldoc perlretut" dans un shell ou la doc ActivePerl si tu es sous windows), qui t'expliquera tout ça mieux que moi.

--
Jedaï