Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: pulling duplicate data from a complex structure

by injunjoel (Priest)
on Jan 23, 2006 at 18:42 UTC ( #525008=note: print w/ replies, xml ) Need Help??


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.

my @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;
Hope that helps

-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


Comment on Re: pulling duplicate data from a complex structure
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://525008]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2015-07-02 00:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (25 votes), past polls