Discussion :

[zerros]

Bonjour,

Je suis en train de faire un script qui va popé des mails sur un serveur de messagerie, et qui vérifie les dates. je veux récupérer tous les message plus vieux de x secondes (60 secondes pour commencer).

La partie pop, pas de prob. je récupère la date et l'heure également dans les entête du mail.
Le souci est que je ne peux pas utiliser DateTime ou encore DateParse etc, car le script tourne sur un serveur qui n'a pas de connexion internet pour ajouter des modules, pas de make pour compiler les modules dans son emplacement, et franchement, jene veux pas me lancer dans de la cross compilation pour 64 bits. je voudrai rester un max standard pour pouvoir réutiliser le script un peu partout.

En gros, je cherche le moyen de convertir l'heure de ce format:
" Fri, 17 Feb 2012 12:04:43"

en secondes epoch pour que je puisse comparer avec la date courante récupérée par strftime.

Avez-vous une super idée ? J'espère que vous pourrez me filer un coup de main.

[Philou67430]

A part faire une analyse syntaxique (triviale) :

Code :

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

1
2
3
4
5
my $date = " Fri, 17 Feb 2012 12:04:43"
my %month = qw(Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9 Nov 10 Dec 11); 
my (undef, $day, $mon, $year, $hour, $min, $sec) = split /[,\s:]+/, $date;
$mon = $month{$mon};
$year -= 1900;