Discussion :

[moook]

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.

[djibril]

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 :

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

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";	
}

[rcageot]

le code suivant devrait faire aussi l'affaire :

Code :

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

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);

[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.

[moook]

Merci rcageot, c'est exactement ce que je voulais faire!

[2Eurocents]

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 :

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

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 ... [/Edit]

[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

[2Eurocents]

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.

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.