Discussion :

[ouinih]

Bonjour,

J'ai une chaine de caractère de type '01'/'10'/'2010' je souhaite obtenir na chaîne '01/10/2010' (c à d supprimer les cotes sauf ceux au début et en fin de chaine).

Je fais

Code :

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

1
2
 
$chaine=~ s/\'+//g;

mais cela me supprime ts les cotes. Comment faire pour garder le premier et dernier cote ?

Merci

[djibril]

petite astuce toute bête . Je supprime tout et rajoute.

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use warnings;
use strict;
 
my $chaine = "'01'/'10'/'2010'";
$chaine =~ s{'}{}g;
$chaine = "'$chaine'";
print $chaine;

[ouinih]

Le pb est que j'ai d'autres informations dans la chaîne.
Concrétement, j'ai la chose suivante

$chaine = le premier jour du mois est '01'/'10'/'2010' ...
donc, je ne peux pas utiliser votre astuce

[djibril]

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use warnings;
use strict;
 
my $chaine = "le premier jour du mois est '01'/'10'/'2010'  et '21'/'10'/'2010'. merci";
$chaine =~ s{'(\d\d)'/'(\d\d)'/'(\d\d\d\d)'}{'$1/$2/$3'}g;
print $chaine;

Te donnes

Code :

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

le premier jour du mois est '01/10/2010'  et '21/10/2010'. merci