Re: How do I find unique Array in Array of Arrays?

in reply to How do I find unique Array in Array of Arrays?

use strics,
use Data::Dumper;
my @AoA = (['a','b','c'],
           ['a','b','c'],
           ['a','b','d'],
           ['a','b','d']
);
my $h,$uAoA;
map {$h->{join '-',@$_} = 1} @AoA;
push @{$uAoA},[split '_',keys %{$h}];
print Data::Dumper $uAoA;
[download]

Comment on Re: How do I find unique Array in Array of Arrays? Download Code

Replies are listed 'Best First'.
Re: Re: How do I find unique Array in Array of Arrays? by moritz (Cardinal) on Dec 18, 2007 at 12:37 UTC
That will fail if some of the array elements contain `-`. That's why you normally want out of band signaling.	[reply] [d/l]

In Section Seekers of Perl Wisdom