common/tools/difflist.pl
author dario
Wed, 06 May 2009 15:21:22 +0100
changeset 182 c35952f24212
parent 39 9edae8fe1416
child 64 3554074ceb34
permissions -rw-r--r--
added whatlog and check

#! perl -w
use strict;

my $element;
my @union = ();
my @intersection = ();
my @difference = ();
my %count = ();

my $file1 = shift or die "Usage: $0 file1 file2\n";
my $file2 = shift or die "Usage: $0 file1 file2\n";

open FILE1, "<$file1" or die "ERROR: Can't read $file1";
open FILE2, "<$file2" or die "ERROR: Can't read $file2";

my @file1_content = <FILE1>;
my @file2_content = <FILE2>;

close FILE1;
close FILE2;

print "* Comparing $file1 and $file2\n";
foreach $element (@file1_content, @file2_content) { $count{$element}++ }
foreach $element (keys %count) {
    push @union, $element;
    push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
}

if (@difference > 0) {
    foreach (@difference){
        print $_;
    }
} else {
    print "* Files are identical\n";
}