Date::Manip should do what you want:

#!/usr/bin/perl use strict; use warnings; use Date::Manip; my @dates; while( <DATA> ) { chomp; push( @dates, ParseDate( $_ ) ); } @dates = sort @dates; my $oldest = $dates[0]; foreach my $current ( @dates ) { my $diff = DateCalc( $oldest, $current ); print "Diff between ", UnixDate( $oldest, "%m/%d/%y" ), " and ", UnixDate( $current, "%m/%d/%y" ), " is ", Delta_Format( $diff, "approx", 0, "%Mt" ), "\n"; } __DATA__ 06/30/96 08/07/97 09/05/97 12/11/97 03/26/98 07/17/98 10/23/98 11/12/98 01/14/99 04/10/99 05/27/99 02/10/00 03/10/00 03/15/00 03/15/00 03/30/00 06/15/00 07/13/00 08/03/00 09/07/00 09/30/00 12/10/00 01/25/01 02/27/01

-derby

Update: If the list is all ready sorted (and you need a bit of golf)

#!/usr/bin/perl use strict; use warnings; use Date::Manip; use List::Util qw( reduce ); my @dates = qw( 06/30/96 08/07/97 09/05/97 12/11/97 03/26/98 07/17/98 10/23/98 11/12/98 01/14/99 04/10/99 05/27/99 02/10/00 03/10/00 03/15/00 03/15/00 03/30/00 06/15/00 07/13/00 08/03/00 09/07/00 09/30/00 12/10/00 01/25/01 02/27/01 ); reduce { print "Diff between $a and $b is ", Delta_Format( DateCalc( $a, $b ) +, "approx", 0, "%Mt" ), "\n"; $a; } @dates;


In reply to Re: compare dates? by derby
in thread compare dates? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.