Conversion date perl

Version imprimable

31/05/2010, 09h29
nox73

Conversion date perl

Bonjour,
Je souhaite convertir ce format de date

Code:

12/Mai/2010:09:21:20

en celui ci :

Code:

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.

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:

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:

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;

02/06/2010, 17h02
nox73
Merci, j'ai trouvé autre chose avant, plus simple:
Code:

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

12/Mai/2010:09:21:20

devient

Code:

2010-05-12 09:21:20