#!/usr/bin/env perl

use Date::Manip::Date;
use Time::Piece;

use warnings;
use strict;
$|++;

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

while (<DATA>) {
    chomp;
    if (s/^(\w+)://) {
        my $cat = $1;
        if ($cat eq "X") {
            my ($n, $x) = split ',';
            $tn = Time::Piece->strptime($n,"%Y-%m-%d %H:%M:%S")->epoch;
            $tx = Time::Piece->strptime($x,"%Y-%m-%d %H:%M:%S")->epoch;
        } elsif ($cat eq "R") {
            my ($i, $s, $e) = split ',';
            my $ts = Time::Piece->strptime($s,"%Y-%m-%d %H:%M:%S")->epoch - $tn;
            my $te = Time::Piece->strptime($e,"%Y-%m-%d %H:%M:%S")->epoch - $tn;
            for ($ts..$te) {
                $range[$_] = $i;
            }
        } else {
            my $cd = Time::Piece->strptime($_,"%m/%d/%Y-%H:%M:%S")->epoch - $tn;
            my $rangeid = $range[$cd];
            if (!defined $rangeid) {
                print "No range found for $_\n";
            } else {
                print "Found range: $rangeid for $_\n";
            }
        }
    }
}


__DATA__
X:2018-02-15 22:49:41,2018-12-13 15:59:59
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