Removing Duplicates In An Array

[bretttt]

Hello, I have an array which contains

example: 1,3,5,7,5,3,9,10,11,12

how can i remove any duplicates such as the threes and fives?

if (@array){
foreach(@array){
}
}

thanks

 

[Deleted]

sub remove_duplicates {
my @array = @_;

# Remove duplicates
my %temp_hash;
$temp_hash{$_} = 1 for (@array);
my @new_array = ();
push @new_array, $_ for (keys %temp_hash);

return @new_array;
}

M. Brooks
X Concepts LLC

http://xconcepts.com

 

[icrf]

Same idea, but shorter done with a map:

my @array = (1,3,5,7,5,3,9,10,11,12);

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

my @uniq = keys %hash;

________________________________________
Andrew - Perl Monkey

 

[rosenk]

I like the perl cookbook method:

my @array = (1,3,5,7,5,3,9,10,11,12);
my %seen;

@uniq = grep { ! $seen{$_}++ } @array;

 

[rosenk]

(one problem with the other two methods shown, by the way, is that order of the original array is lost.)