Chas. Owens wrote: > On Thu, Feb 19, 2009 at 10:20, mritorto <mritorto@gmail.com> wrote: >> owen, >> >> How do you use the List::Compare module is the same as array::compare? > snip > > List::Compare can be found in CPAN*. Here is you program rewritten to > use it (this is not what I would do): We know. ;-) <snip> > my @atlas = <$atlas>; > my @isis = <$isis>; > > my $comparison = List::Compare->new(\@atlas, \@isis); > > print $comparison->get_symmetric_difference; It's worth noting that if the so called symmetric difference is sufficient, the same result is achieved if you use the approach suggested in perldoc -q difference.+arrays Actually, you only need one single hash: my %count; $count{$_}++ while <$atlas>; $count{$_}++ while <$isis>; print sort map { $count{$_} == 1 ? $_ : () } keys %count; -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.plThread Previous | Thread Next