Dave's Brain

Browse - programming tips - perl remove duplicates

Date: 2011may3
Language: perl

Q.  How can I remove/delete duplicate elements from an array?

A.  Use grep and a hash like this:

	sub removeDuplicates(@)
	{
	        my(@in) = @_;
	        my(%seen);
	        return grep { ! $seen{$_}++ } @in;
	}

	sub exampleUse()
	{
		@nodups = removeDuplicates(@a);
	}

Add a comment

Sign in to add a comment