Discussion :

[proDZ]

Bonjour,

comme c'est dit dans le titre je souhaite remplacer seulement trois caractères dans une ligne par un autre caractère moyenant une expression régulière sans passer par des traitement intermédiaire (c'est-à-dire un split ou une boucle)

mon format de base est :
2009.10.20-00.04.10
et je veux avoir
2009/10/20-00.04.10

Merci d'avance

[Philou67430]

Sauf erreur, tu ne veux changer que les deux premiers points en /
Une façon de faire si ta chaine est toujours une date:

Code :

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

$chaine =~ s/(\d{4}).(\d+)./$1\/$2\//;

ou bien

Code :

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

$chaine =~ s/^(\d+).(\d+)./$1\/$2\//;

Si ce n'est pas toujours une date, placée en début de chaine, il faut :
- soit en savoir plus sur le format de la chaine
- soit utiliser une boucle

[djibril]

une autre alternative :

Code :

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

1
2
$chaine =~ s{\.}{/};
$chaine =~ s{\.}{/};

Même si c'est moins beau et optimum.

[proDZ]

mea culpa une erreur c'est glissé dans mon exemple

mon format de base est :
2009.10.20-00.04.10
et je veux avoir
2009/10/20-00:04:10

[Philou67430]

Avec les réponses de djibril et moi-même, tu devrais trouver ce qui te convient, non ?
Au passage, ta solution, djibril, n'a rien de "moins beau", et sans doute encore moins d'optimum. En plus, elle a le mérite d'être très robuste face au format d'entrée (qui, pour l'instant, n'est pas défini de manière stricte).

On peut d'ailleurs l'écrire en une ligne (si c'est ce que sied à djam84)

Code :

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

$chaine =~ s{\.}{/} foreach (0 .. 1);