Re: Calculate difference between multiple days

[Discipulus]

Hello, I doubt to have understood what a difference from 3 dates can be..

I just guess you want the maximum difference in a set; if so you can sort by epoch and take first and last one:

use strict;
use warnings;
use Date::Calc qw(:all);


my @array1 = (2018,04,11,0,0,0);
my @array2 = (2018,04,12,0,0,0);
my @array3 = (2018,04,13,0,0,0);

my @ordered = sort { Mktime(@{$a})<=> Mktime(@{$b})} \@array1,\@array2
+,\@array3;

print "@$_\n" for @ordered;

my $dd = Delta_Days(@{@ordered[0]}[0..2],@{@ordered[-1]}[0..2]);

print "Max delta is $dd day(s)\n";

#OUTPUT
2018 4 11 0 0 0
2018 4 12 0 0 0
2018 4 13 0 0 0
Max delta is 2 day(s)

If not, please explain your question more verbosely

L*

[Anonymous Monk]

Hello all and thank you for your kind replies!
I actually meant an all-against-all comparison, but I think I will go for something like this:


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

my $date_first = '2005-09-27';
my $date_second = '2019-12-22';
my $date_third = '1999-12-22';

use Time::Piece;
my $date1 = localtime( $date_first );
my $date2 = localtime( $date_second );
my $date3 = localtime( $date_third );
if( $date2 > $date1 and $date2 > $date3 and $date1 > $date3) 
{
    print "correct\n";
}


since I just needed to only compare between them and not calculate days. This works for me now, thanks again!

[hippo]

if( $date2 > $date1 and $date2 > $date3 and $date1 > $date3)

Can you spot which of these three comparisons is redundant?