in reply to Unique values in array
If you want to preserve the order of the first seen item
@values = qw(this is a test of the hello test of the test artist hello + world); @unqiue_values = grep { !$seen{$_}++ } @values; print join " " => @unqiue_values,"\n"; __END__ this is a test of the hello artist world
|
|---|