Conversion de dates

Version imprimable

09/08/2004, 09h17
Gogoye

Conversion de dates
Salut à tous !

J'aimerai convertir des dates en passant du format généré par un programme en C :
Code:

1 2 Fri Aug 6 10:20:12 2004
au format pour des données XML :
Code:

1 2 2004-07-22T15:02:29.936+02:00
Pour tout ce qui est numérique, il n'y a pas de problème, mais je ne sais pas comment récupérer le jour et le mois correspondant à leur forme littéraire.

Est-ce qu'une fonction Perl permet de construire une date mi-littéraire pour en générer une autre dans le second format ?

Merci de vos réponses.
09/08/2004, 10h39
dmitry_ovsianko

Pas de fonction standarte, mais il' y a un bon module:

Date::Format (http://search.cpan.org/~gbarr/TimeDa...Date/Format.pm).
09/08/2004, 10h49
Gogoye

Ok merci !

Le meilleur des module pour faire ca c Class::Date

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use Class::Date qw(:errors date localdate gmdate now -DateParse);
$date = date "2001-11-12 07:13:12";
 
#Avec ces fonctions tu peux recupere le numero du mois et le numero du #jour et utiliser un hash pour faire la resolution litterraire
 
  $date->_mon;        # month 0..11
  $date->_month;      # same as prev.
  $date->wday;        # 1 = Sunday
  $date->_wday;       # 0 = Sunday
 
my $mois={	0=>	'Jan',
	    	1=>	'Feb',
		2=>	'Mar',
		3=>	'Apr',
		4=>	'May',	#$date->_mon; 
		5=>	'Jun',
		6=>	'Jul',
		7=>	'Aug',
		8=>	'Sep',
		9=>	'Oct',
		10=>	'Nov',
		11=>	'Dec',
    		};

Avec ce package j'ai pu passer d'un date de ce format:
2004-08-10 07:13:12
à celui ci:
tue, 10 aug 2004 07:13:12

Voila en esperant que ca t'aide

10/08/2004, 11h39
Gogoye
Salut,

En fait le package TimeDate qu dmitry_ovsianko m'a indiqué marche très bien aussi, et de manière plus simple je pense.

Voici le bout de code qui fait ce que je veux :
Code:

1 2 3 my $time = str2time("$1"); # $1 = date au format ctime() de C my $xmldate = time2str("%Y-%m-%dT%H:%M:%S.000+02:00", $time);
D'autre part, il suffit d'indiquer la langue pour parser la forme littéraire (je crois que ca prend par défaut la langue de la locale).

M'enfin, merci quand même ;)
10/08/2004, 11h39
Gogoye
Salut,

En fait le package TimeDate que dmitry_ovsianko m'a indiqué marche très bien aussi, et de manière plus simple je pense.

Voici le bout de code qui fait ce que je veux :
Code:

1 2 3 4 5 6 7 8 use Date::Format; use Date::Parse; [...] my $time = str2time("$1"); # $1 = date au format ctime() de C my $xmldate = time2str("%Y-%m-%dT%H:%M:%S.000+02:00", $time);
D'autre part, il suffit d'indiquer la langue pour parser la forme littéraire (je crois que ca prend par défaut la langue de la locale).

M'enfin, merci quand même ;)