Discussion :

[svil]

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

[djibril]

Code :

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

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

[svil]

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

Code :

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

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 !

[2Eurocents]

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 :

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
#!/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";

[djibril]

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

Code :

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

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!

[svil]

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