sub removeDuplicates(@) { my(@in) = @_; my(%seen); return grep { ! $seen{$_}++ } @in; } sub exampleUse() { @nodups = removeDuplicates(@a); }
Programming Tips - perl: remove/delete duplicate elements from an array?
Date: 2011may3
Language: perl
Q. perl: remove/delete duplicate elements from an array?
A. Use grep and a hash like this: