découper un datetime avec la fonction split

Version imprimable

03/10/2006, 09h50
moook

découper un datetime avec la fonction split

Bonjour,

J'essaye de traiter une date sous cette forme "jj/mm/aaaa hh:mm:ss"
pour pouvoir l'insérer dans une base de données au format DATETIME qui doit être sous cette forme: "aaaa/mm/jj hh:mm:ss"

Je souhaite découper dans un premier temps le date time en deux pour faire un tableau qui contiendrait tab[0]=jj/mm/aaaa et tab[1]=hh:mm:ss
je n'arrive pas à effectuer ce premier découpage, j'ai essayer avec
@start=~ split(/\//, $start);

Si quelqu'un peut m'aider un peu, merci d'avance.

on comprends rien à ce que tu racontes, donne nous un exemple de ce que tu veux faire.
Si tu veux obtenir la date sous un certain format, voici une procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/perl -w
 
use strict;
use Carp;
 
print &date(),"\n";
 
#Retourne la date.
sub date {
  my @tab_date =localtime(time); 
  my $jour = $tab_date[3];
  $jour = "0".$jour if ($jour<10);
  my $mois = ($tab_date[4]+1);
  $mois = "0".$mois if ($mois<10);
  my $annee =  ($tab_date[5]+1900);
  my $heure = $tab_date[2];
  $heure = "0".$heure if ($heure<10);
  my $minute = $tab_date[1];
  $minute = "0".$minute if ($minute<10);
   my $sec= $tab_date[0];
  $sec = "0".$sec if ($sec<10);
 
return "$jour/$mois/$annee $tab_date[2]h:$minute"."min".":$sec"."sec";	
}

le code suivant devrait faire aussi l'affaire :

Code:

1
2
3
4
5
6
7
 
$datestr = "jj/mm/aaaa hh:mm:ss";
 
($date, $heure) = split (/ /, $datestr);
 
($jj, $mm,$aaaa) = split(/\//, $date);
($hh, $mn,$ss) = split(/:/, $heure);

03/10/2006, 10h06
moook

J'ai relu mon message je pensais pourtant être explicite, désolé.
Je souhaite transformer cette chaîne que je récupere avec mon parser XML: "jj/mm/aaaa hh:mm:ss" comme ceci:
"aaaa/mm/jj hh:mm:ss"
c'est à dire changer l'ordre de la date pour pouvoir l'insérer dans une base de données.

merci pour ton aide.
03/10/2006, 10h13
moook

Merci rcageot, c'est exactement ce que je voulais faire!
03/10/2006, 10h17
2Eurocents
Citation:

Envoyé par moook

J'ai relu mon message je pensais pourtant être explicite, désolé.
Je souhaite transformer cette chaîne que je récupere avec mon parser XML: "jj/mm/aaaa hh:mm:ss" comme ceci:
"aaaa/mm/jj hh:mm:ss"
c'est à dire changer l'ordre de la date pour pouvoir l'insérer dans une base de données.

merci pour ton aide.

Comme ça :
Code:

1 2 my ($jj, $mm, $aaaa, $hh, $mn, $ss) = split (%/| |:%, $chaine); my $new_ch=sprintf ("%04d/%02d/%02d %02d:%02d:%02d", $jj, $mm, $aaaa, $hh, $mn, $ss);
Non ?

[Edit] Arf ... grillé ... à vouloir faire trop de choses à la fois ... :roll: [/Edit]
03/10/2006, 10h43
rcageot

j'aime mieux ta solution utilisant un seul split mais j'ai lu dans un autre post (une réponse de jedai il me semble) qu'il fallait mieux décomposer pour faciliter la lecture du code !

sinon désolé pour le grillage ;)
03/10/2006, 10h52
2Eurocents

Citation:

Envoyé par rcageot

j'aime mieux ta solution utilisant un seul split mais j'ai lu dans un autre post (une réponse de jedai il me semble) qu'il fallait mieux décomposer pour faciliter la lecture du code !

Je préfère aussi décomposer lorsqu'il s'agit de substitutions (s///). Pour le split, cela ne me gêne pas trop car l'expression reste généralement courte et lisible.

Pour ce qui est de la lisibilité du code, une bonne précaution est de commenter les expressions rationnelles vraiment tordues afin que, si elle ne sont pas facilement lisible, on puisse quand même comprendre ce qu'elles font.

Citation:

Envoyé par rcageot

sinon désolé pour le grillage ;)

Il n'y a pas de mal ... poster sur 4 ou 5 fils en parallèle, c'est risquer de se faire griller sur tous. ;)