#!/usr/bin/perl -w
use strict;

if ( scalar(@ARGV) < 2 ) {
    print "Usage:\n\t$0 file1 file2\n\n";
    die;
}

my @filename = ( $ARGV[0], $ARGV[1] );
my (@content);

foreach my $i ( 0, 1 ) {
    open( DF, $filename[$i] )
      or die("Can't open $filename[$i] for input: $!\n");
    while (<DF>) {
        chomp;
        push( @{ $content[$i]{$_} }, $. );
    }
    close(DF);
}

my @keycount = (
    scalar( keys( %{ $content[0] } ) ),
    scalar( keys( %{ $content[1] } ) )
);
if ( $keycount[0] != $keycount[1] ) {
    my @differential = @filename;
    if ( $keycount[0] > $keycount[1] ) {
        @differential = reverse(@filename);
    }
    print "Fewer values detected in ", $differential[0],
      " than ", $differential[1], "\n";
}
foreach my $k ( sort( keys( %{ $content[0] } ) ) ) {
    if ( defined( $content[1]{$k} ) ) {
        print $k, "\n";
        foreach ( 0, 1 ) {
            print "\tFound in ", $filename[$_], " at line(s): ",
              join( ', ', @{ $content[$_]{$k} } ), "\n";
            delete( $content[$_]{$k} );
        }
    }
}
@keycount = (
    scalar( keys( %{ $content[0] } ) ),
    scalar( keys( %{ $content[1] } ) )
);
if ( $keycount[0] or $keycount[1] ) {
    foreach ( 0, 1 ) {
        if ( $keycount[$_] ) {
            print "Found in ", $filename[$_], " but not in ",
              $filename[ ( $_ + 1 ) % 2 ], ":\n";
            foreach my $k ( sort( keys( %{ $content[$_] } ) ) ) {
                print "\t'", $k, "' at line(s): ",
                  join( ', ', @{ $content[$_]{$k} } ), "\n";
                delete( $content[$_]{$k} );
            }
        }
    }
}