Jan 19, 2001, 3:40 PM
Post #1 of 1
(From the Perl FAQ)
How do I print out or copy a recursive data struct
How do I print out or copy a recursive data structure?
The Data::Dumper module on CPAN is nice for printing out data structures, and FreezeThaw for copying them. For example:
Where $old can be (a reference to) any kind of data structure you'd like. It will be deeply copied.
use FreezeThaw qw(freeze thaw);
$new = thaw freeze $old;