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

Re: (jeffa) 2Re: Trying to solve N-Queens

by eduardo (Curate)
on Sep 09, 2002 at 22:14 UTC ( #196460=note: print w/replies, xml ) Need Help??


in reply to (jeffa) 2Re: Trying to solve N-Queens
in thread Trying to solve N-Queens

Call me crazy, but whenever I need a deep copy, I use freezethaw... just to be sure, 'cause data structures have a tendency to grow beyond their original intentions...
#!/usr/bin/perl -w use strict; use Data::Dumper; use FreezeThaw qw/ thaw freeze /; my $ds = { -foo => [ -bar => [0, 1], 3 ], -ping => 1 }; $ds->{-zort} = \$ds; my ($dsft) = thaw freeze $ds; $dsft->{-ping} = 2; print Dumper [$ds, $dsft];
See... $ds and $dsft are two different objects now! yay. And no matter how they change, the deep copy will work for ever and ever.
[admin@ensim admin]$ perl ./test.pl $VAR1 = [ { '-zort' => \$VAR1->[0], '-ping' => 1, '-foo' => [ '-bar', [ 0, 1 ], 3 ] }, { '-ping' => 2, '-zort' => \$VAR1->[1], '-foo' => [ '-bar', [ '0', '1' ], '3' ] } ]; [admin@ensim admin]$

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://196460]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2017-11-24 17:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (351 votes). Check out past polls.

    Notices?