#!/usr/bin/env perl

use Date::Manip::Date;

use warnings;
use strict;
$|++;

my @vkeys;
my $dmd = new Date::Manip::Date;
my $cmp_dt = new Date::Manip::Date;
my %ranges_dt;

# ==================================================
sub check_date_in_range
{
    my ($value, %h) = @_;
    $value =~ s/-/ /;
    $cmp_dt->parse($value);
    my $cvalue = $cmp_dt->secs_since_1970_GMT;
    if (!@vkeys) {
        @vkeys = sort keys %h;
    }
    foreach my $k (@vkeys) {
        if (($cvalue >= $h{$k}{start}) && ($cvalue <= $h{$k}{end})) {
            return $k;
        }
    }
    return;
}

while (<DATA>) {
    chomp;
    if (s/^(\w+)://) {
        my $cat = $1;
        if ($cat eq "R") {
            my ($i, $s, $e) = split ',';
            $dmd->parse($s);
            $ranges_dt{$i}{start} = $dmd->secs_since_1970_GMT;
            $dmd->parse($e);
            $ranges_dt{$i}{end} = $dmd->secs_since_1970_GMT;
        } else {
            my $rangeid = check_date_in_range($_, %ranges_dt);
            if (!defined $rangeid) {
                print "No range found for $_\n";
            } else {
                print "Found range: $rangeid\n";
            }
        }
    }
}


__DATA__
R:1,2018-03-06 14:20:00,2018-03-06 14:30:00
R:2,2018-03-06 13:00:00,2018-03-06 13:40:00
R:3,2018-03-06 13:45:00,2018-03-06 13:50:00
D:03/06/2018-14:29:41
D:03/06/2018-13:33:38
D:03/06/2018-13:54:47
D:03/06/2018-12:53:34
D:03/06/2018-13:29:19
D:03/06/2018-12:52:47
D:03/06/2018-14:21:51
D:03/06/2018-13:49:20
D:03/06/2018-13:36:18
D:03/06/2018-13:44:25