Discussion :

[Antoine NSG]

Bonjour

je récupere des dates sous la forme

20051127065000 +0100

et j'aimerai retirer les six derniers caracteres.
Pour l'instant je fais six chomp($mytime) consécutifs . Il doit y avoir une maniere plus élégante j'imagine quelqu'un a til une idée

d'avance merci.

[GLDavid]

http://perl.developpez.com/faq/?page...72#sectionB72b

@++

[2Eurocents]

Bonjour

je récupere des dates sous la forme

20051127065000 +0100

et j'aimerai retirer les six derniers caracteres.
Pour l'instant je fais six chomp($mytime) consécutifs . Il doit y avoir une maniere plus élégante j'imagine quelqu'un a til une idée

Il y a plein de solutions ...

Les expressions rationnelles, brutalement :

Code :

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

1
2
$t="20051127065000 +0100";
$t =~ s/.{6}$//;

Un substr sur le début de la chaine et sur une longueur égale à celle de la chaine moins 6 :

Code :

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

1
2
$t="20051127065000 +0100";
$t = substr ($t, 0, length ($t)-6);

Il y a aussi la possibilité de couper à l'espace (le premier des six caractères), que ce soit avec une expression rationnelle, ou bien avec split.

J'imagine aussi que ce que tu faisait était un chop, et non un chomp, car le chomp est plutôt respectueux de tes données et risque de ne pas supprimer un caractère lisible :

Code :

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

1
2
$t="20051127065000 +0100";
chop ($t) foreach (1..6);

Etc.

Bon courage

[Edit]
Arf ... Carbonized by GLDavid ...
Ca m'apprendra à faire des réponses aussi longues
[/Edit]

[GLDavid]

Hiiiiii ! Tu comprends pourquoi tu es mon fillot

GLDavid, qui poste plus vite que son ombre