Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

How do you clone a data structure?

by szabgab (Priest)
on Mar 28, 2012 at 09:26 UTC ( #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 (Pope) 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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://962124]
Front-paged by Arunbear
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2018-07-15 23:22 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (328 votes). Check out past polls.