Date en perl

Bonjour,

je récupère des dates dans des logs systèmes, sous la forme
[26/Mar/2008:09:37:04 +0100]
Je veux pouvoir retourner à combien de jours avant now correspondent ces dates.

Je dois donc les transformer en une chaîne de type "date" interprétable en perl, je suppose.
Mais j'ignore absolument comment faire ?

Merci pour votre retour :D

Utilise

Code:

---

Use Date::Parse

---

C'est sympa et malléable à souhait.

s'il te faut des précision n'hésite pas!

Avec Date::Manip ?

Code:

---

1 2 3 4 5 6 7 8

use Date::Manip;   my $rawdate = '26/Mar/2008:09:37:04 +0100';   my $date = ParseDate( $rawdate ); my $now = ParseDate( 'now');   print DateCalc( $date, $now), "\n";

---