[Débutant]Comment ajouter un '.' au 2e caractère d'un mot?

le principe est tout con :

Code:

---

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

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

Code:

---

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:

---

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ï

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

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ï