Discussion :

[Gogoye]

Salut à tous !

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

Code :

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

1
2
 
Fri Aug  6 10:20:12 2004

au format pour des données XML :

Code :

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

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.

[dmitry_ovsianko]

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

Date::Format (http://search.cpan.org/~gbarr/TimeDa...Date/Format.pm).

[Gogoye]

Ok merci !

[gracouille]

Le meilleur des module pour faire ca c Class:ate

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
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

[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 :

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

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 ;)

[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 :

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

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 ;)