Discussion :

[vince2005]

Bonjour

J'ai une date contenu dans une variable, au format suivant 23-02-2006 qui est $Date_Toto. En fonction de cette variable, je voudrai creer une autre variable qui s'appelle $Date_Tata dans laquelle, je ne retrouverai que 23022006, donc la meme date , mais sans les -.

sous unix, il faudrait faire
Date_Tata = $(echo $Date_Toto | tr - ...)

mais sous perl ?? mon code avec le tr est correcte, mais je m'y perds un peu avec les variables et la syntaxe.

pour résumer , j'ai 23-02-2006 et je souhaite avoir 23022006

Code :

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

1
2
3
 
$Date_Toto = $ligne;
$Date_Tata  = print $Date_toto | tr/-//d ;

[2Eurocents]

Bonjour,

mais sous perl ?? mon code avec le tr est correcte, mais je m'y perds un peu avec les variables et la syntaxe.

pour résumer , j'ai 23-02-2006 et je souhaite avoir 23022006

Code :

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

1
2
3
 
$Date_Toto = $ligne;
$Date_Tata  = print $Date_toto | tr/-//d ;

Perl n'est pas du shell ... il y a une petite différence de logique ...

Il existe, en Perl, des opérateurs spécifiques de translitteration (tr) ou de substitution d'expression rationnelles.

De plus, il n'est pas nécessaire de "printer" et "piper" comme en shell, puisque l'on ne traite pas des entrées/sorties mais que l'on est à l'intérieur d'un environnement d'interprétation cohérent. Qui plus est, l'opérateur | a en Perl une signification différente du pipe du shell !

Dans le cas présent, la translittération (tr) ne convient pas, car elle vise à remplacer les caractères sur le mode "1 pour 1". Cela conviendrait pour remplacer tous les "-" par des "_" ou des " ", mais pas pour des suppressions.

Pour une suppression de tous les "-", rien de tel qu'une substitution d'expression rationnelle, avec une chaine de substitution vide.

Quelque chose comme :

Code :

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

1
2
$date_tata = "23-03-2002";
$date_tata =~ s/-//g;

[vince2005]

ouin je suis d'accord !!!

mais je souhaiterai que ma variable $date_tata reste au format 23-03-2002 et par contre, avoir une variable $date_toto qui contienne ce nouveau format.

Code :

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

1
2
$date_tata = "23-03-2002"; 
$date_toto =~ print $date_tata s/-//g;

[2Eurocents]

mais je souhaiterai que ma variable $date_tata reste au format 23-03-2002 et par contre, avoir une variable $date_toto qui contienne ce nouveau format.

Pas de problème, il suffit de conserver $date_tata et de traiter $date_toto ...

Code :

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

1
2
3
$date_tata = "23-03-2002"; 
$date_toto = $date_tata;
$date_toto =~ s/-//g;