in reply to pulling duplicate data from a complex structure
Greetings,
Though I would suggest strongly that you consider using a hash, here is something you can do after your pushes to de-dup your data.
Leave out the unless, since that works fine, and run the following after.
-InjunJoel
Though I would suggest strongly that you consider using a hash, here is something you can do after your pushes to de-dup your data.
Leave out the unless, since that works fine, and run the following after.
Hope that helpsmy @non_duplicates = do{ #lets use a hash since we want unique values #and localize it so its a fresh copy local %_; #undef the values of this localized hash #while assigning your values as keys undef @_{@{$map{$$row[1]}{$$row[2]}}}; #call keys on the hash to get a list of your #unique values keys %_; } #assign our unique list back to your original structure. $map{$$row[1]}{$$row[2]} = \@non_duplicates;
-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo
In Section
Seekers of Perl Wisdom