What’s the best way to make a deep copy of a data structure in Perl?

by

Clone is much faster than Storable::dclone, but the latter supports more data types.

Clone::Fast and Clone::More are pretty much equivalent if memory serves me right, but less feature complete than even Clone, and Scalar::Util::Clone supports even less but IIRC is the fastest of them all for some structures.

With respect to readability these should all work the same, they are virtually interchangeable.

If you have no specific performance needs I would just use Storable’s dclone.

I wouldn’t use Data::Dumper for this simply because it’s so cumbersome and roundabout. It’s probably going to be very slow too.

For what it’s worth, if you ever want customizable cloning then Data::Visitor provides hooking capabilities and fairly feature complete deep cloning is the default behavior.

More Related Contents:

  1. What is meaning of defined keyword [closed]
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. How can I use CPAN as a non-root user?
  11. Perl daemonize with child daemons
  12. How can I parse dates and convert time zones in Perl?
  13. Which one is good practice, a lexical filehandle or a typeglob?
  14. How do I tell if a variable has a numeric value in Perl?
  15. Using perl’s `system`
  16. What’s the best way to open and read a file in Perl?
  17. Perl memory usage profiling and leak detection?
  18. How should I use the “my” keyword in Perl?
  19. How do I daemonize an arbitrary script in unix?
  20. How can I dynamically include Perl modules without using eval?
  21. How can I store the result of a system command in a Perl variable?
  22. How can I check if a file exists in Perl?
  23. Using Encode::encode with “utf8”
  24. How can I start an interactive console for Perl?
  25. What does =~ do in Perl? [closed]
  26. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  27. What does shift() do in Perl?
  28. How can I extract text from a PDF file in Perl?
  29. How do I retrieve the terminal width in Perl?
  30. How do I tell CPAN to install all dependencies?

Leave a Comment