Date au format RFC822 avec ActivePerl et POSIX

Bonjour,

Je suis débutant en Perl et j'ai un script qui nécessite la date du jour au format RFC822, en anglais (pex. Wed, 5 Aug 2005 19:30:00 GMT). J'utilise, avec la version 5.10.0.1005 d'ActivePerl sous Windows XP, les lignes suivantes pour l'obtenir :

Code:

---

1 2	use POSIX qw(strftime); $today=strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time()));

---

mais la date m'est retournée dans un format français :

"mer., 01 juil. 2009 12:08:48 Europe de l'Ouest (heure d'été)"

Y a-t-il un moyen simple de convertir cette date au format anglais? Ou dois-je des remplacement dans la chaîne de caractères obtenue?

Un grand merci pour votre aide.
Dimitri

strftime dépend de la locale, à savoir de la variable d'environnement LC_TIME (voir perldoc perllocale).
Quel est la valeur de ta variable d'environnement LC_TIME ? ($ENV{LC_TIME}) ?

Essaye alors ceci :

Code:

---

1 2 3 4

use POSIX qw(strftime locale_h); setlocale(LC_TIME, "en"); $today=strftime("%a, %d %b %Y %H:%M:%S %z" localtime(time()));

---

Merci pour ta réponse Philou!

Le changement de locale fonctionne pour la date et l'heure, mais pas pour la mention "Europe de l'Ouest (heure d'été)".

Je l'ai transformée en "GMT" en faisant une substitution dans la chaîne de caractères, ce qui n'est pas très propre je suppose, mais qui fonctionne.

Bonne soirée
Dimitri

Dans ce cas, remplace le plutôt dans le motif :

Code:

---

1 2 3

use POSIX qw(strftime locale_h); setlocale(LC_TIME, "en"); $today=strftime("%a, %d %b %Y %H:%M:%S GMT" localtime(time()));

---

Sauf que c'est faux, car l'heure Paris, madrid d'été, c'est GMT+2

Pour être exact, il faudrait sans doute écrire :

Code:

---

1 2 3

use POSIX qw(strftime locale_h); setlocale(LC_TIME, "en"); $today=strftime("%a, %d %b %Y %H:%M:%S GMT" gmtime(time()));

---

Ton code fonctionne parfaitement, pour autant qu'on y ajoute une virgule avant gmtime(time). Dans le cas contraire, une erreur de syntaxe est renvoyée.

Le code fonctionnel serait donc

Code:

---

1 2 3

use POSIX qw(strftime locale_h); setlocale(LC_TIME, "en"); $today=strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime(time()));

---

Merci encore pour ton aide, Philou, tu m'as fait gagner un temps précieux
Dimitri