Discussion :

[didleur]

Bonjour,


Je cherche une fonction ou méthode permettant de générer un timestamp au format DB2; c'est à dire au format : AAAA-MM-JJ HH:mm:ss.xxxxxx où les x représentent les microsecondes.

Le problème que je rencontre c'est qu'en utilisant DateTime je n'obtiens pas les microsecondes nécessaires à la création du timestamp db2.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
$date = DateTime->now;
$timestamp  = $date->year;
$timestamp .= '-'.$date->month;
$timestamp .= '-'.$date->day;
$timestamp .= ' '.$date->hour;
$timestamp .= ':'.$date->minute;
$timestamp .= ':'.$date->second;
$timestamp .= '.'.$date->nanosecond;
 
print "timetamp = [$timestamp]\n";

(ps : j'ai retiré des sources les controles permettant de préfixer avec un 0 une valeur inférieure à 10.)

Ce code me retourne :
timetamp = [2009-10-21 18:10:03.0]
alors que je souhaite avoir :
timetamp = [2009-10-21 18:10:03.012345]

Existe t il un moyen en perl d'obtenir ce genre de résultat ?

Merci pour votre aide.

Didier

[50Nio]

Il faut utiliser un module plus précis, genre:
Time::HiRes::gettimeofday()

cf http://search.cpan.org/~jhi/Time-HiRes-1.9719/HiRes.pm

[didleur]

Merci à toi pour cette information.

J'ai donc créé une fonction qui retourne une chaine de caractères au format timestamp db2.

Je la laisse ici si ça peut aider d'autres personnes :

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
26
27
28
 
# ------------------------------------------------
# Fonction getCurrentTimestamp
#   -> qui retourne un current timestamp au foramt
#      db2
# ex : 2009-10-25 16:35:53.123456
# ------------------------------------------------
sub getCurrentTimestamp
{
  my $epochseconds = "0";
  my $microseconds = "0";
  my $second = "0";
 
  ($epochseconds, $microseconds) = Time::HiRes::gettimeofday; 
  ($second, $minute, $hour, $jour, $mois, $annee) = localtime($epochseconds);
 
  $mois += 1 ; 
  $annee += 1900;
 
  return sprintf("%4d-%2d-%2d %02d:%02d:%02d.%06d", $annee, $mois, $jour, $hour, $minute, $second, $microseconds); 
}
 
# Tests.
$t0 = getCurrentTimestamp();
print "timestamp 0 = [$t0]\n";
 
$t1 = getCurrentTimestamp();
print "timestamp 1 = [$t1]\n";

Ce qui m'affiche :
timestamp 0 = [2009-10-22 17:24:08.434871]
timestamp 1 = [2009-10-22 17:24:08.435185]

Petite précision : je ne connais pas le perl, je découvre donc il y a peut être des erreurs de conception.

Didier

[djibril]

si j'ai le temps, je le rajouterais dans nos sources après corrections si nécessaires .
D'ailleurs, n'hésitez pas à faire des propositions ici.

[50Nio]

Et pour confirmer la parole de Djibril, ton code est plutôt bien. :-)

[djibril]

Ne pas oublier à mettre le post en résolu. Pour information : Comment obtenir la date au format DB2, obtenir la microseconde ? avec un nouveau auteur didleur.