• [^] # Re: genre ca ?

    Posté par . En réponse au message nombre de jours entre deux dates. Évalué à 2.

    Peut être le module Perl POSIX est il là... 
    #!/usr/bin/perl
use POSIX (mktime);
my $date1 = shift or die "Missing first date";
my $date2 = shift or die "Missing second date";
$date1 =~ m|(..)/(..)/(....)| or die "Invalid first date";
my $time1 = mktime(0,0,0,2ドル-1,1ドル-1,3ドル-1900);
$date2 =~ m|(..)/(..)/(....)| or die "Invalid second date";
my $time2 = mktime(0,0,0,2ドル-1,1ドル-1,3ドル-1900);
print (($time2-$time1) / 86400);