http://www.perlmonks.org?node_id=962124

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 } ];
}

    [download]

    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?
[reply]
[d/l]
[select]
Re: How do you clone a data structure?
by repellent (Priest) on Mar 30, 2012 at 08:25 UTC
[reply]
[d/l]

Back to Seekers of Perl Wisdom