答案。

在Perl中，默认情况下，对引用结构（例如，数组的数组或哈希的哈希）的复制是浅表的：只复制引用本身，而不是嵌套的内容。历史上，这常常会导致意外的效果——一个副本中的内部结构的更改会反映到其他副本中。解决方案：使用专门的方法和模块进行深度克隆，以创建具有独立嵌套元素的独立结构。

示例代码（使用Storable）：

use Storable 'dclone';
my $original = { a => [1, 2, { x => 10 }] };
my $copy = dclone($original);
$copy->{a}[2]{x} = 20;
print $original->{a}[2]{x}; # 10

关键特点：

浅表复制与深表复制有本质区别：需要特定的函数。
Storable模块是大多数情况的稳定解决方案。
对于深度复制非标准对象，需要重载序列化方法。

出乎意料的问题。

运算符“=”（$copy = $ref）在深度复制中有效吗？

不，运算符“=”只复制引用本身。在这种赋值之后，任何对$copy的更改也会反映在$ref中。

可以使用Data::Dumper对结构进行深度复制吗？

Data::Dumper是一个用于调试和序列化为字符串的工具，并不适合恢复内存中的数据结构。对于反向转换，需要使用eval，这是危险的，不建议出于安全性和性能原因。

dclone总是能正确处理对象（被Blessed引用）吗？

Storable::dclone可以克隆对象，但仅在类没有重载序列化方法或不包含非标准对象（例如，文件描述符或强引用外部资源）时。对于复杂对象，需要实现方法STORABLE_freeze和STORABLE_thaw。

常见错误和反模式

使用简单的赋值而不是深度复制。
使用Data::Dumper + eval进行克隆。
手动递归处理结构的愿望，导致错误和无法正确处理循环引用。

生活中的例子

负面案例

通过运算符=复制的数组内的数组，在其一个嵌套结构中进行更改——所有副本中都可见相同的更改。

优点：

代码更简单。

缺点：

在应用程序扩展时隐藏的错误和意外副作用。

正面案例

使用Storable::dclone或Clone::PP，所有嵌套结构都是独立的。