Code:
$
$
$ cat exitwithtimeout.txt
Day,Start Date,Start Time,End Date,End Time,Queue,Issue
Mon,07 Nov 2016,09:12:48 EST,07 Nov 2016,09:13:41 EST,2041,EXITWITHTIMEOUT,30
Mon,07 Nov 2016,09:16:42 EST,07 Nov 2016,09:17:41 EST,2081,EXITWITHTIMEOUT,30
Mon,07 Nov 2016,09:39:15 EST,07 Nov 2016,09:40:11 EST,2041,EXITWITHTIMEOUT,30
Mon,07 Nov 2016,10:17:11 EST,07 Nov 2016,10:17:41 EST,2081,EXITWITHTIMEOUT,30
Thu,17 Nov 2016,10:06:07 EST,17 Nov 2016,10:06:59 EST,2031,EXITWITHTIMEOUT,30
$
$ cat ringnoanswer.txt
Day,Start Date,Start Time,End Date,End Time,Queue,Operator,Issue,WaitTime
Mon,07 Nov 2016,09:12:48 EST,07 Nov 2016,09:13:10 EST,2041,Djamila Millien,RINGNOANSWER,20000
Mon,07 Nov 2016,09:32:19 EST,07 Nov 2016,09:32:41 EST,2041,Djamila Millien,RINGNOANSWER,20000
Mon,07 Nov 2016,09:35:48 EST,07 Nov 2016,09:36:11 EST,2021,Kimberly Paz,RINGNOANSWER,20000
Mon,07 Nov 2016,09:39:15 EST,07 Nov 2016,09:39:40 EST,2041,Djamila Millien,RINGNOANSWER,20000
Mon,07 Nov 2016,10:17:11 EST,07 Nov 2016,10:17:41 EST,2081,Deidra Wright,RINGNOANSWER,20000
Thu,17 Nov 2016,10:05:53 EST,17 Nov 2016,10:06:29 EST,2021,Traci Dingman,RINGNOANSWER,20000
$
$ cat -n compare_datetimes.pl
1 #!/usr/bin/perl -w
2 use strict;
3 use DateTime;
4
5 my %mth = qw(Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6
6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12);
7 my (@ewt_arr, @token, @sdt, @sts, @edt, @ets);
8 my $ewt_file = $ARGV[0];
9 my $rna_file = $ARGV[1];
10
11 # Read the exitwithtimeout file, parse and store the start and
12 # end datetimes in the ewt_arr array.
13 open(FH, "<", $ewt_file) or die "Can't open $ewt_file : $!";
14 while (<FH>) {
15 next if $. == 1;
16 chomp(@token = split(/,/, $_));
17 @sdt = split(/ /, $token[1]);
18 $sdt[1] = $mth{$sdt[1]};
19 @sts = split(/[: ]/, $token[2]);
20
21 @edt = split(/ /, $token[3]);
22 $edt[1] = $mth{$edt[1]};
23 @ets = split(/[: ]/, $token[4]);
24
25 push (@ewt_arr, [ DateTime->new(
26 year => $sdt[2],
27 month => $sdt[1],
28 day => $sdt[0],
29 hour => $sts[0],
30 minute => $sts[1],
31 second => $sts[2]
32 ),
33 DateTime->new(
34 year => $edt[2],
35 month => $edt[1],
36 day => $edt[0],
37 hour => $ets[0],
38 minute => $ets[1],
39 second => $ets[2]
40 )
41 ]);
42
43 }
44 close(FH) or die "Can't close $ewt_file : $!";
45
46 # Read the ringnoanswer file, capture the start and end datetimes
47 # and compare with each element of ewt_arr array. If there is an
48 # overlap, then print Queue, Operator and WaitTime values.
49 printf("%-10s %-20s %s\n", "RNA Queue","RNA Operator","RNA WaitTime");
50 open(FH, "<", $rna_file) or die "Can't open $rna_file : $!";
51 while (<FH>) {
52 next if $. == 1;
53 chomp(@token = split(/,/, $_));
54 @sdt = split(/ /, $token[1]);
55 $sdt[1] = $mth{$sdt[1]};
56 @sts = split(/[: ]/, $token[2]);
57
58 @edt = split(/ /, $token[3]);
59 $edt[1] = $mth{$edt[1]};
60 @ets = split(/[: ]/, $token[4]);
61
62 my $sdate = DateTime->new(
63 year => $sdt[2],
64 month => $sdt[1],
65 day => $sdt[0],
66 hour => $sts[0],
67 minute => $sts[1],
68 second => $sts[2]
69 );
70 my $edate = DateTime->new(
71 year => $edt[2],
72 month => $edt[1],
73 day => $edt[0],
74 hour => $ets[0],
75 minute => $ets[1],
76 second => $ets[2]
77 );
78 foreach my $item (@ewt_arr) {
79 if ( DateTime->compare($edate, $item->[0]) >= 0 and
80 DateTime->compare($sdate, $item->[1]) <= 0 ) {
81 printf("%-10s %-20s %s\n", $token[5], $token[6], $token[8]);
82 }
83 }
84 }
85 close(FH) or die "Can't close $rna_file $!";
86
$
$ perl compare_datetimes.pl exitwithtimeout.txt ringnoanswer.txt
RNA Queue RNA Operator RNA WaitTime
2041 Djamila Millien 20000
2041 Djamila Millien 20000
2081 Deidra Wright 20000
2021 Traci Dingman 20000
$
$
11-19-2016
