remove duplicate value in array

[sivaramanm]

hello monks,

I have a array, which values are duplicated once in the same array. I need to remove the second occurence value. I have tried as below, but not getting result. Pls help me to solve this

Thanks

Siva

@content = split(/ /, $content);
            @Original = @content;
            
            for ($i=0; $i<=$#content; $i++)
            {
                for ($j=0; $j<$i; $j++)
                {
                    print "$j\n";
                     if ($content[$i] == $content[$j])
                     {
                         $Original[$i] = "";
                     }
                }
            }
                
            print "@processing";

[borisz]

another way is to use List::MoreUtils.

use List::MoreUtils qw/uniq/;
my @uniq_array = uniq @array;

[Nevtlathiel]

You could use a hash as this will ensure that your keys are unique, or you could searching for "array" and "duplicate". That gives plenty of results.

[davorg]

This is a FAQ.

[Anonymous Monk]

This is a test reply

[Fletch]

When you want distinct values think hash.

my %seen;
@content = grep !($seen{$_}++), split( / /, $content );

[VSarkiss]

Fletch and Nevtlathiel have it above. Just in case the code sample is too dense, here's a little "looser" version that does the same thing:

my %seen;
$seen{$_}++ for @content;
my @unique = keys %seen;

So %seen is the hash that gets a key for each unique value in @content, and @unique is an array containing those (unique) keys.

[ptum]

And of course, the nice thing about this particular solution is you can still tell if there were any duplicate keys ... in such cases, the value of $seen{$key} will be greater than 1.

[ikegami]

It doesn't do quite the same thing. Fletch's solution preserves order. Yours does not.

[McDarren]

This is a FAQ.

perldoc -q duplicate

or perlfaq4

[planetscape]

This is also found under Categorized Questions and Answers:

• How do I find if an array has duplicate elements, if so discard it?
• How to find and remove duplicate elements from an array?
• How can I display a unique array if it contains some repeated elements

HTH,

[Anonymous Monk]

@content = qw(1 2 3 1 2 4 2 5 4 3);
print "arr  @content\n";

for ($i=0; $i<=$#content; $i++)
{
        my $count = 0;

        for ($j=$i+1; $j<$#content+1; $j++)
       {


        if ($content[$i] == $content[$j])
                {
                           $count++;


                   }



        if ($content[$i] == $content[$j] && $count == 1)
         {

 $content[$j] = "";
         }
   }

 }
  print "@content";

Code tags added by GrandFather

[gasho]

######################################################################
+#######
# Remove duplicated array members
# For example if you have an array @D=qw(1 2 1 3 1 4 1 5)
# It will return an array [1 2 3 4 5]
# Usage @Clean=nonDuplicatedArray(@D);
sub nonDuplicatedArray  #(@DuplicatedArray)
{

    my @Duplicated=@_;
    my %seen=();
    my (@NonDuplicatedArray,@Unique);

    @Unique = grep {! $seen{$_}++} @Duplicated;
    @NonDuplicatedArray = sort(@Unique);

return @NonDuplicatedArray;
}

or

@ARR2 =('p1','p2','p3','p1','p2','p1');
@unique = grep { ++$count{$_} < 2 }   @ARR2;