#!/usr/bin/perl -w

use strict;
use Date::Simple;
use Date::Range;

# Define our dates
my $date1 = Date::Simple->new('2006-02-02');
my $date2 = Date::Simple->new('2007-02-02');

# Create our range
my $range = Date::Range->new($date1, $date2);

# Find the number of days between the specified dates 
my $number_of_days = $range->length;
print "Number of days between dates: $number_of_days\n";

# Now print each of these dates
foreach my $date ($range->dates) {
  print $date->as_str . "\n";
}
[download]

Thanks a lot for pointing me to this module; it was a breeze to install, and with

use Date::Simple ('date');
[download]

I just needed:


$diff = date($enddate) - date($startdate);
[download]

I had my question solved, simple and easy.

You Monks ROCK !!!

Life is tough, it's tougher when you are dumb...

jfl

I recommend looking deeper into DateTime. Here are some pointers:

• QandASection: dates and times in our Q&A section.
• How do I find the difference in days between two dates, in a cool perl way?
• Comparing two dates and getting back difference in days

See also How do I post a question effectively?. It would be helpful to know what format your dates are in now. Regardless of what you do, probably most of the work will be in getting the dates you have into a format that makes them easy to compare, so the current format is very important to answering your question.

use Time::Duration;
print "Runtime ", duration(time() - $start_time), ".\n";
[download]