[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-AnyPerl] an elegant uniquing



On Mon, Feb 07, 2000 at 11:01:01AM -0500, Chris Nandor wrote:
> The other suggestions are good, but mine is eviler, and eviler is gooder.
> 
>   @unique = grep { ! $seen{ $_->{names} }++ and $_ = $_->{names}, 1 } @loh;

Note, however, that the evilness includes munging the original array.

Ronald