Re: Remplacements de caractères indexés

Bon, bah voilà, dans cette histoire de Pari-Matche, confirmation en
perl pile quand j'envoyais mon message. J'me suis fait couper l'herbe
sous le pied.

--FrihD(Lucas)

On Dec 17, 2007 7:53 PM, Edgar Bonet <guilde@???> wrote:
> Le lundi 17 décembre, Frédéric Mantegazza a écrit :
> > Dans un fichier, il voudrait, pour chaque ligne (= un enregistrement),
> > remplacer les caractères aux position 19, 20, 21 et 22 par 4 autres
> > caractères. Il ne dispose que de shell, sed, awk, et perl (pas de python,
> > ce serait trop simple !).
>
> $ echo 1234567890123456789012345 | perl -pe 's/(.{18}).{4}(.*)/\1xxxx\2/'
> 123456789012345678xxxx345
>
> Edgar.
>
>