convertir une date en seconde

Bonjour,

J'attaque mon deuxième script en perl (avant, je ne faisais que du PHP !)

Je cherche à convertir une date (ayant ce format 051104 6:30:12) en secondes ?? En fait, le nombre de secondes écoulées depuis le 01/01/1970 (référence unix) ?

Existe-t-il un moyen rapide pour réaliser cette convertion ?

C'est une date extraite d'un fichier de log.
Debian sarge 3.1 - perl 5.8.4

Code:

---

1 2 3 4 5

#@temps = ($sec,$min,$hour,$mday,$mon,$year); my @temps = ("12","30","6","04","11","2005"); # 051104 6:30:12) print localtime(@temps);

---

=> 6011070400
secondes depuis 01/01/1970
A toi de voir si le resultat est correct

Merci mais visiblement, cela ne fonctionne pas. J'ai testé en ajoutant 2 secondes et cela donne le même résultat !!

Code:

---

1 2 3 4 5 6 7 8 9 10

my @temps = ("12","30","6","04","11","2005"); # 051104 6:30:12) print localtime(@temps); print "\n";   my @temps = ("14","30","6","04","11","2005"); # 051104 6:30:14) je rajoute 2 secondes print localtime(@temps); print "\n";

---

Cela donne :
6011070400
6011070400
Donc le même résultat !

Cet usage de localtime n'est pas bon ... ça fait l'inverse de ce qui est souhaité :?

Perso, j'utilise, entre autres, le module Time::Local ...

Tu découpe la date de ton log pour récupérer les différentes variables de temps, puis tu appliques un truc comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/usr/bin/perl -w   use strict; use warnings; use Time::Local;   # Conversion de la date (6 param. j m a h mn s) en Timestamp (date UNIX depuis Epoch) sub getTS { (my $jour, my $mois, my $annee, my $heure, my $minute, my $seconde) = @_; $mois--;   return (timelocal ($seconde, $minute, $heure, $jour, $mois, $annee)); }   print getTS (9, 12, 2004, 11, 8, 54)."\n"; print getTS (9, 12, 2004, 11, 9, 54)."\n"; print getTS (9, 12, 2004, 12, 8, 54)."\n";   my $t=gmtime(1110717630); print $t."\n";

---

sorry, je me suis trompé, c'est en effet

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use strict; use Carp; use Time::Local;   my @temps = ("14","30","6","04","11","2005");   print timelocal(@temps);

---

Merci eurocent!

Super, ce code fonctionne. Merçi à tous.