#!/usr/bin/perluse Date::Calc qw(:all);my $dday = '15/05/2012';my ( $a1, $m1, $j1 ) = Today([$gmt]);my ( $j2, $m2, $a2 ) = split( '/', $dday );print "J-",Delta_Days( ( $a1, $m1, $j1 ), ( $a2, $m2, $j2 ) ),"\n";
Bon, c'est pas tout ça mais ...Code: [Sélectionner]#!/usr/bin/perluse Date::Calc qw(:all);my $dday = '15/05/2012';my ( $a1, $m1, $j1 ) = Today([$gmt]);my ( $j2, $m2, $a2 ) = split( '/', $dday );print "J-",Delta_Days( ( $a1, $m1, $j1 ), ( $a2, $m2, $j2 ) ),"\n";J-40