How do I print out or copy a recursive data structure?

    use FreezeThaw qw(freeze thaw);
    $new = thaw freeze $old;

Where $old can be (a reference to) any kind of data structure you'd like. It will be deeply copied.

• Back to How do I keep persistent data across program calls?

• Forward to How do I define methods for every class/object?

• Up to the perlfaq4 manpage