Perl Tip Of The Day: “uniq” an Array

I can across a great snippet of code, posted on DZone, that provides a two line solution to uniq an array while maintaining order:

# Input: @list
# Output: @uniqed
 
my %seen;
my @uniqed = grep !$seen{$_}++, @list;

This entry was posted in Software Development and tagged array, Code Example, uniq. Bookmark the permalink.