zeroclickinfo-goodies/lib/DDG/Goodie/DaysBetween.pm

package DDG::Goodie::DaysBetween;
# ABSTRACT: Give the number of days between two given dates.

use DDG::Goodie;
use Date::Calc qw( Date_to_Days); 
use Time::localtime;

triggers start => "days", "daysbetween", "days_between";

zci is_cached => 1;
zci answer_type => "days_between";

primary_example_queries 'days between 01/01/2000 01/01/2001';
secondary_example_queries 'days between 01/01/2000 01/01/2001 inclusive';
description 'calculate the number of days between two dates';
name 'DaysBetween';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/DaysBetween.pm';
category 'calculations';
topics 'everyday_goodies';
attribution github => ['http://github.com/JetFault', 'JetFault'];


handle query_lc => sub {

	s/^days(?:\s|_)*between//;
	my @dates = $_ =~ m#([01]?[0-9])/([0-3]?[0-9])/([0-9]{4}(?=\s|$))#g;

	if(scalar(@dates) == 3) {
		my $tm = localtime;
		push(@dates, $tm->mon + 1, $tm->mday, $tm->year + 1900);
	}

	if(scalar(@dates) == 6) {
        my ($days1, $days2);
        my $inclusive = '';

		eval {
			$days1 = Date_to_Days(@dates[2,0,1]);
			$days2 = Date_to_Days(@dates[5,3,4]);
		};
		if ($@) {
			return;
		}
		my $daysBetween = abs($days2 - $days1);
        if(/inclusive/) {
            $daysBetween += 1;
            $inclusive = ', inclusive';
        }
        my $startDate = join '/', @dates[0,1,2];
        my $endDate = join '/', @dates[3,4,5];
		return 'There are ' . $daysBetween ." days between ". $startDate . ' and ' . $endDate . $inclusive . '.';
	}
	return;
};

1;