Calculer le jour d'une date

Utiliser le module Date::Calc et la fonction Day_of_Week dans un eval :

#!/usr/local/bin/perl

use strict;

use Date::Calc qw(Day_of_Week);

my %week = (        '1'        =>        'Lundi',
                '2'        =>        'Mardi',
                '3'        =>        'Mercredi',
                '4'        =>        'Jeudi',
                '5'        =>        'Vendredi',
                '6'        =>        'Samedi',
                '7'        =>        'Dimanche'
                );

my $day = eval("return(Day_of_Week(1970,1,1))");

print $week{$day}." 1er Janvier 1970\n";

On utilise la fonction dans un eval car elle quitte le script si la valeur de la date n'est pas bonne.

Plus d'information dans la documentation du module ou sur le site du CPAN et dans la documentation de Perl :

• perldoc -f eval