Discussion :

[nox73]

Bonjour,
Je souhaite convertir ce format de date

Code :

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

12/Mai/2010:09:21:20

en celui ci :

Code :

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

2010-05-12 09:21:20

J'ai cru voir sur le forum un bout de code permettant de le faire, mais impossible de remettre la main dessus.
Merci d'avance.
Thomas.

[Jasmine80]

Bonjour, tu as plus de dix façon de résoudre ton problème :


En voici 2 mais il y a peut-être plus simple comme code :

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
 
 
my $date = '12/Mai/2010:09:21:20';
 
my %corr = (
	'Mai' => '05',	
	'Juin' => '06',
);
 
my ($d, $m, $y, $h, $min, $s) = split /[:\/]/, $date;
$date = $d.'-'.$corr{$m}.'-'.$y.' '.$h.':'.$min.':'.$s;

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
25
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $date = '12/Mai/2010:09:21:20';
 
my %corr = (
	'Mai' => '05',	
	'Juin' => '06',
);
 
# récupération du mois
if ( $date =~ m{([a-z]+)}i ){
 
	my $month = $1;
	$date =~s{$month}{$corr{$month}}g;
} 
 
# remplacement des slashes par des tirets
$date =~s{/}{-}g;
 
 
# remplacement du premier : par un espace
$date =~s{(\d{4}):(\d{2})}{$1 $2}g;

[nox73]

Merci, j'ai trouvé autre chose avant, plus simple:

Code :

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

1
2
use HTTP::Date;
$date = HTTP::Date::parse_date($date);

Code :

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

12/Mai/2010:09:21:20

devient

Code :

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

2010-05-12 09:21:20