ktsirig

Hi everybody!
I have a question concering arrays..
Say I have the following array:
(1,12)
(1,13)
(2,14)
(2,15)
(2,3)
(2,16)
(3,15)
(3,3)
(3,20)
(3,5)
(3,6)
(3,20)

Everything is OK except that pair (3,20) is repeated twice. How can I avoid it? 'Map' function is the answer?

Infinite Recursion

This may get you going...

my %hash = map { $_ => 1 } @array;
my @array2 = sort keys %hash;

Where array2 is your unique array...

__________________
http://jasonpowers.net

"There are a thousand hacking at the branches of evil to one who is striking at the root."

Kaja Fumei

A page from the Perl Cookbook:
http://www.unix.org.ua/orelly/perl/cookbook/ch04_07.htm

ktsirig

Hi guys,
thanx for your time...
I seem to have made a mistake here...
What I have is an array of arrays that i want to make unique. That is, I have:
@AoA=(["1","15"], ["2","5"], ["3","4"], ["3","5"], ["3","8"], ["3","5"], ["4","6"], ["4","5"])
and I want to remove array element ["3","5"] which is seen twice if you notice.
Is that possible? I am confused with this!

LudakoT

grep and one hash would do just fine
@array = grep {!$hash{$_}++} @array;
where %hash should be 'defined' as an empty hash () and @array is your array where you have duplicate elements.