[PERL]-Trouver le jour d'une date donnée

use Time::Local

#jours 1-31
#mois 1-12
#année sur 4 chiffres
my $time = timelocal($sec, $min, $h, $d, $m-1, $y-1900);

my ($secondes, $minutes, $heures, $jour_mois, $mois,$an) = localtime($time);

#!/usr/bin/perl
#
use warnings;use strict;

# en utilisant la fonction localtime
# 
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime();

$mois += 1 and $annee += 1900;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$annee-$mois-$jour $heure:$min:$sec";
print $d0,"\n";

# en utilisant la commande date (plus simple)
# je stocke dans la variable $d1
# en utilisant `` (apostrophes enverses)
# 
my $d1 = `date '+%Y-%m-%d %H:%M:%S'`;
print $d1,"\n";

__END__
Il y a des modules sur CPAN pour gérer les dates

#!/usr/bin/perl
#
use warnings;use strict;

use Time::Local;

my $date = 'Fri Aug 18 04:15:27 2006';

$date =~ /\w+\s*(\w{3})\s*(\d\d?)\s*(\d\d):(\d\d):(\d\d)\s*(\d{4})/;

# à modifier le hash ( les clés ) si besoin
my %mois = (
            jan => '0',
            fev => '1',
            mar => '2',
            avr => '3',
            mai => '4',
            jui => '5',
            jul => '6',
            aug => '7',
            sep => '8',
            oct => '9',
            nov => '10',
            dec => '11',
);

my $d1 = timelocal ($5,$4,$3,$2,$mois{lc($1)},$6);
my ($s,$m,$h,$j,$mm,$a) = localtime($d1);

$mm +=1 and $a += 1900;

$j = sprintf("%02d",$j);
$mm = sprintf("%02d",$mm);

$s = sprintf("%02d",$s);
$m = sprintf("%02d",$m);
$h = sprintf("%02d",$h);

print "$a-$mm-$j $h:$m:$s\n";

__END__
J'ai fait à la main le formatage

Il y a le module Date:Manip sur CPAN
Voir la fonction ParseDate

#!/usr/bin/perl
#
use warnings;use strict;

# utilisation de module Date::Manip
#
use Date::Manip qw(UnixDate);

# date à convertire dans le format  'YYYY-MM-DD HH:MI:SS' 
my $date = 'Fri Aug 18 04:15:27 2006';

# la conversion
my $res_d = UnixDate($date,"%Y-%m-%d %H:%M:%S");

# l'affichage
print $res_d,"\n";

perl -v

perl -e '$,="\n" and print @INC'