Re: Comparing items from multiple files

my %data; @data{@ARGV} = ();

/$regex/ && $data{$ARGV}{$1}++ while <>;

print
map { my $this = $_;
map { my $that = $_;
map { "In $this but not $that $_\n" }
grep { not exists $data{$that}{$_} } keys %{$data{$this}} }
grep { not $_ eq $this } keys %data } keys %data;


-- 
John Douglas Porter



__________________________________
Do you Yahoo!?
Free Pop-Up Blocker - Get it now
http://companion.yahoo.com/