> @list1 = qw(two one two zero six five six seven zero);
> @list2 = keys(%{{map{$_=>1}(@list1)}});
>> hi,
Howdy
>>
>> I need a procedure to eleminate dupes in a @list
>>
>> Ex: @list1 = qw(two one two zero six five six seven zero);
>>
>> should be changed to:
>>
>> @list2 = qw(two one zero six five seven);
>>
Here's a couple waysthat were recommended to me that
don't have the overhead (if any) of map:
@list2 = do { my %t;grep !$t{$_}++, @list1 };
@list2 = keys %{ my %s;@[EMAIL PROTECTED] = ();\%s; };
Does anyone know for sure if they both ot one or the other
keeps the order of the elements in the array?
(IE - First instance first, like in the OP example)
HTH
DMuey
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
