1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| # mm/jj/aaaa hh/mn AM exp: Mar/15/2004 10:10 AM
my %nom_mois = (Jan => 1, Feb => 2, Mar => 3, Apr => 4);
# Do it yourself pour completer les hash de conversion !
my $date = "Mar/15/2004 10:10 AM";
my ($mois, $jour, $annee, $heure, $minute, $AM) = ($date =~ m_(\w{3})/(\d{2})/(\d{4}) (\d{2}):(\d{2}) (\w{2})_);
my $seconde=0;
$heure+=12 if ($AM eq 'AM');
$date = printf ("-%d/%02d/%02d %02d:%02d:%02d",
$annee, $mois, $jour,
$heure, $minute, $seconde);
# Inserer la $date dans la base ... |
Partager