Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Recursive copier

by extremely (Priest)
on Jun 19, 2001 at 01:26 UTC ( #89462=note: print w/ replies, xml ) Need Help??

in reply to Recursive copier

Best way, period, is:

use Storable qw(dclone); # Deep (recursive) cloning $cloneref = dclone($ref);

Keeping in mind it is shipped for free with any fairly modern perl installation (INST_FILE /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/ and is one of the more regularly "use"d modules in other modules. That means the perl-porters themselves have taken a modicum of interest in seeing that it is correct and complete.

The likelyhood is, you already have Storable installed!

$you = new YOU;
honk() if $you->love(perl)

Comment on Re: Recursive copier
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (13)
As of 2015-12-01 22:00 GMT
Find Nodes?
    Voting Booth?

    My keyboard shows this many letters:

    Results (28 votes), past polls