Comment obtenir un Timestamp db2

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:

---

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

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

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

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:

---

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

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

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

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.