#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use XML::Twig;
use autodie;
use Data::Dumper;

my @filename = ('output1.csv', 'output2.csv');

my %file1 = () ;
open my $fh, '<', $filename[0]; # using autodie
while (<$fh>){
  chomp;
  my ($name,$ip) = split /\s*,\s*/;
  $file1{$name} = $ip;
}
close $fh;

#%file1 = (
# TEST_1 => '10.56.7.80',
# TEST_3 => '10.66.78.10',
# TEST_4 => '10.66.81.9',
# TEST_2 => '10.67.9.12',
#);

my %file2 = () ;
my %ip2name = ();

open $fh, '<', $filename[1]; # using autodie
while (<$fh>){
  chomp;
  my ($id,$name,$ip) = split /\s*,\s*/;
  $file2{$name} = [$id,$ip];
  $ip2name{$ip} = [$id,$name];
 }
close $fh;

#%file2 = (
#  TEST_1 => ['01','10.56.7.80'],
#  TEST_3 => ['02','10.66.251.9'],
#  TEST_5 => ['03','10.66.81.9'],
#);
print Dumper \%file1,\%file2,\%ip2name;

# determine updates and additions requires
my @updateIP  =();
my @updateName=();
my @add = ();
foreach my $name (sort keys %file1) {
  my $ip1 = $file1{$name};
  if ( not exists $file2{$name} ){
    # check if ip exists
    if ( not exists $ip2name{$ip1} ){
       print "ADD name : '$name' '$ip1'\n";
       push @add,[undef,$name,$ip1];
    } else {
       my $id2   = $ip2name{$ip1}[0];
       my $name2 = $ip2name{$ip1}[1];
       
       print "UPDATE NAME change id '$id2' name from '$name2' to '$name'\n";
       push @updateName,[$id2, $name, $ip1];
    }
    next;
  } 
  
  my $ip2 = $file2{$name}[1];
  if ($ip1 eq $ip2) {
    print "MATCHED device '$name', '$ip1'\n";
  } else {
    my $id2 = $file2{$name}[0];
    print "UPDATE IP change '$name' id '$id2' ip from '$ip2' to '$ip1' \n";
    push @updateIP,[$id2,$name,$ip1];
  }
}
print Dumper \@add,\@updateIP,\@updateName;