Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

How do you clone a data structure?

by szabgab (Priest)
on Mar 28, 2012 at 09:26 UTC ( [id://962124]=perlquestion: print w/replies, xml ) Need Help??

szabgab has asked for the wisdom of the Perl Monks concerning the following question:

If there is a datastructure which is more than one level deep, I usually use dclone of Storable. I wonder what do you use and why do you think it is better than the dclone of Storable?

Replies are listed 'Best First'.
Re: How do you clone a data structure?
by BrowserUk (Patriarch) on Mar 28, 2012 at 09:45 UTC

    Clone::clone() if I need performance; because it was faster than Storable when I tried it a few years ago. That may have changed; YMMV.

    Though often as not when I need to clone something, I'll use a custom clone() for the purpose, that only deals with the cases I need to deal with. For example:

    sub clone { my $ref = shift; ref( $ref ) or return $ref; ref( $ref ) eq 'SCALAR' and return \$$ref; ref( $ref ) eq 'HASH' and return { map+( $_, clone( $ref->{$_} ) +), keys %{ $ref } }; ref( $ref ) eq 'ARRAY' and return [ map clone( $ref->[$_] ), 0 .. + $#{ $ref } ]; }

    That deals with most 'normal' data-structures that don't contain 'exotics' -- bless refs or coderefs and the like.


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    The start of some sanity?

Re: How do you clone a data structure?
by repellent (Priest) on Mar 30, 2012 at 08:25 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://962124]
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2024-03-19 13:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found