#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

my %alias_hash;
my %host_hash;
my %host_contents;
my %seen;
my $host_id;
my $dbh;
my $file1;
my $file2;

GetOptions(
     'h|help'       =>      sub { pod2usage( { -verbose => 1, -input => \*DATA, } ); exit; },
     'm|man'        =>      sub { pod2usage( { -verbose => 2, -input => \*DATA, } ); exit; },
     'f1|file1=s'   =>      \$file1,
     'f2|file2=s'   =>      \$file2,
);
pod2usage( -verbose => 1 ) unless $file1 and $file2;


open(my $file1_handle, '<', $file1) or die "Could not open $file1 ($!)\n";
while (my $line=<$file1_handle>) {
    chomp $line;
    if ($line =~ /host id="(.*?)"/)
    {
        $host_id = $1;
        $host_hash{$host_id} = -1;
    }
    if ($line =~ m{<host-alias>(.*?)</host-alias>})
    {
        $alias_hash{$host_id}{$1} = -1;         
    }
}
close $file1_handle;

open(my $file2_handle, '<', $file2) or die "Could not open $file2 ($!)\n";
while (my $line=<$file2_handle>) {
    chomp $line;
    if ($line =~ /host id="(.*?)"/)
    {
        $host_id = $1;
        $host_hash{$host_id}++;
    }
    if ($line =~ m{<host-alias>(.*?)</host-alias>})
    {
        $alias_hash{$host_id}{$1}++;  
    }
}
close $file1_handle;

for my $k1 ( keys %host_hash ) 
{
    if ($host_hash{$k1} == -1)
    {
        print "$k1\n";
    }
}

for my $k1 ( keys %alias_hash ) {
    for my $k2 ( keys %{ $alias_hash{$k1} } ) {
        if ($alias_hash{$k1}{$k2} == -1) {
			print "$k2\n";
        }
    }
}