duplicates

I have an array in Perl: my @my_array = ("one","two","three","two","three"); How do I remove the duplicates from the array? Greg Hewgill You can do something like this as demonstrated in perlfaq4 : sub uniq { my %seen; grep !$seen{$_}++, @_; } my @array = qw(one two three two three); my @filtered = uniq(@array); print "@filtered\n"; Outputs: one two three If you want to use a module, try the uniq function from List::MoreUtils The Perl documentation comes with a nice collection of FAQs. Your question is frequently asked: % perldoc -q duplicate The answer, copy and pasted from the output of the

I was curios about the question: Eliminate consecutive duplicates of list elements , and how it should be implemented in Python. What I came up with is this: list = [1,1,1,1,1,1,2,3,4,4,5,1,2] i = 0 while i < len(list)-1: if list[i] == list[i+1]: del list[i] else: i = i+1 Output: [1, 2, 3, 4, 5, 1, 2] Which I guess is ok. So I got curious, and wanted to see if I could delete the elements that had consecutive duplicates and get this output: [2, 3, 5, 1, 2] For that I did this: list = [1,1,1,1,1,1,2,3,4,4,5,1,2] i = 0 dupe = False while i < len(list)-1: if list[i] == list[i+1]: del list[i] dupe