#!/usr/bin/perl
use strict;
use warnings;

use IO::All;
use Data::Dumper;
use List::Compare;

my @x = io('x.log')->chomp->slurp;
my @x_start = grep /mti_clk_chk/, @x && grep /start of test/, @x;
my @x_period = grep /mti_clk_chk/, @x && grep /Checking the period/, @x;
print Dumper \@x_start;
# print Dumper \@x_period;

my @y = io('y.log')->chomp->slurp;
my @y_start = grep /mti_clk_chk/, @x && grep /start of test/, @y;
my @y_period = grep /mti_clk_chk/, @x && grep /Checking the period/, @y;
print Dumper \@y_start;
# print Dumper \@y_period;

my $lcStart = List::Compare->new('-u', \@x_start, \@y_start);
my @LorRonlyStart = $lcStart->get_symmetric_difference;
print Dumper \@LorRonlyStart;

io('start.log')->appendln(@LorRonlyStart);

my $lcPeriod = List::Compare->new('-u', \@x_period, \@y_period);
my @LorRonlyPeriod = $lcPeriod->get_symmetric_difference;
print Dumper \@LorRonlyPeriod;

io('period.log')->appendln(@LorRonlyPeriod);

##</code><code>##

INFO @1102266 PHResourceLayer_Z4: mti_clk_chk:################ start of test ################ ; T=1102266
UVM_INFO @1092507 reporter Z4_COREA: mti_clk_chk: ################ start of test ################ ; T=1092507