Discussion :

[Olivier.p]

Bonjour,
Est il possible de faire plusieurs substitutions dans une même chaîne de caractères en une ligne ?

Exemple:
J'ai :

Code :

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

1
2
3
4
$format_date = "jj-mm-aaaa";
$annee = "2009";
$jour = "03";
$mois = "06";

et je veux afficher la date : 03-06-2009, sachant que ça doit marcher quelque soit le séparateur de date (jj/mm/aaaa affichera 03/06/2009 etc.) et quelque soit l'ordre des valeurs (aaaa-jj-mm affichera 2009-03-06).
J'ai testé :

Code :

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

$date=~ s/aaaa/$annee/&&s/mm/$mois/&&s/jj/$jour/;

Mais ça ne marche pas (je sais même pas ce que perl comprend).

Je veux le faire en une ligne.
Sinon :

Code :

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

1
2
3
$date=~ s/aaaa/$annee/;
$date=~ s/mm/$mois/;
$date=~ s/jj/$jour/;

Marche très bien.

Une suggestion ?

[Philou67430]

Code :

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

$date=~ s/aaaa/$annee/, $date=~ s/mm/$mois/, $date=~ s/jj/$jour/;

Mais c'est un artifice qui est équivalent à l'usage de 3 expressions séparées par des ;
Une autre manière de faire :

Code :

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

1
2
3
4
5
6
7
8
 
$format_date = "jj-mm-aaaa";
$annee = "2009";
$jour = "03";
$mois = "06";
my %date = ( "aaaa" => $annee, "mm" => $mois, "jj" => $jour );
 
($date = $format_date) =~ s/(aaaa|mm|jj)/$date{$1}/g;

[Olivier.p]

D'accord avec la première proposition c'est un artifice

Par contre la deuxième est plutôt jolie.

Code :

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

($date = $format_date) =~ s/(aaaa|mm|jj)/$date{$1}/g;

Qu'est ce que perl comprend ?

perl
"aaaa" a été trouvé (je ne cherche pas "mm" ou "jj" je ne sais même pas qu'ils existent, le "ou" devant m'a dissuadé de regarder), je l'enregistre dans la valeur $1 (qui est ma première valeur matchée), je dois le substituer avec la valeur de la liste date correspondant à lindice $1 qui vaut "aaaa". Le g à la fin m'indique de recommencer ma recherche. Je ne trouve pas "aaaa" je cehrche et trouve "mm" ... etc.

J'ai bon ?

En tout cas ça me plait merci

[Philou67430]

De ce que perl comprend de

Code :

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

$date=~ s/aaaa/$annee/ && s/mm/$mois/ && s/jj/$jour/

Je dirais ceci :
- perl comprends s/.../.../ comme étant un alias de $_ =~ s/.../.../ si l'opérateur s/// n'est pas précédé de =~
donc l'expression s'écrit encore :

Code :

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

$date=~ s/aaaa/$annee/ && $_ =~ s/mm/$mois/ && $_ =~ s/jj/$jour/

Donc, cette expression ne devrait mettre à jour que l'année dans $date, et provoquera une erreur si "use warnings" est utilisé et que $_ est undef. Sinon, elle modifiera potentiellement $_.

[Olivier.p]

Ok !

Note que

Code :

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

$date=~ s/aaaa/$annee/ && $date =~ s/mm/$mois/ && $date =~ s/jj/$jour/

marche très bien et répond au Cdc

Merci pour les explications en tous cas !

--> Résolu <--

[Philou67430]

Mmmm, non, il ne marche pas parfaitement, car si ton format ne contient pas le motif recherche, le premier opérande du && sera faux, et le suivant non évalué.
Ainsi, si "aaaa" n'est pas inséré dans le format, aucune substitution n'aura lieu.

Attention donc avec l'usage de && (alors qu'avec ";" ou ",", toutes les expressions régulières seront évaluées.

[Olivier.p]

Arg encore un coup portée en plein coeur par Maître Philou !

Bien vu !

Pour ma défense je dirai que ça correspond toujours au cahier des charges initial. C'est juste que ce dernier a mal été défini...

Ajoutons donc dans le CdC que ça doit marcher même si l'année, le mois ou le jour n'est pas renseigné.

Mais... Qu'est qui nous empêche d'imaginer que le type qui définit le format de la date est un anglais ? Et qu'il écrit donc :

Code :

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

$format_date = "mm/dd/yy";

(oui que deux lettres pour l'année, mais il aurait pu en mettre 4, il était pressé voilà tout)
Bon les / sont gérés mais le dd et le yy ?

Note à l'attention de Maître Philou : si tu résous cette énigme simplement je fais intervenir un utilisateur chinois !

[Philou67430]

Il suffit simplement de compléter la liste du hashage %date :

Code :

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

1
2
3
my %date = ( "aaaa" => $annee, "yy" => substr($annee, 2), "mm" => $mois, "jj" => $jour, "dd" => $jour);
 
($date = $format_date) =~ s/(aaaa|yy|mm|jj|dd)/$date{$1}/g;

Je chercher encore mieux ...

[Philou67430]

Pour ajouter le mois anglais sur 3 lettres (abrégé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use POSIX qw(strftime);
 
my %date = (
 "aaaa" => $annee,
 "yy" => substr($annee, 2),
 "mm" => $mois,
 "mmm" => strftime(0, 0, 0, $jour, $mois-1, $annee),
 "jj" => $jour,
 "dd" => $jour);
 
($date = $format_date) =~ s/(aaaa|yy|m{2,3}|jj|dd)/$date{$1}/g;

Etc, etc, etc...

[Philou67430]

En fait, le plus simple est sans doute d'utiliser strftime avec un format standard.
Voir :
man strftime
perldoc POSIX (chercher strftime)