Ich finde den hier schön kompakt:

Code (perl): (dl )

my @seen = keys %{ { map{ $_ => 1 } @list } };

edit: Unsinn, hatte den OP nicht richtig gelesen...
Last edited: 2009-08-19 14:09:36 +0200 (CEST)