为什么Perl核心没有内置deep copy（深拷贝）功能？

你提到的三类不纳入核心的通用原因确实不适用于深拷贝场景，Perl核心没有内置该功能主要有三个现实因素：

• 设计哲学惯性：Perl从早期就遵循「最小核心、CPAN生态补全」的设计思路，类似深拷贝的通用工具类功能很早就被划入CPAN的覆盖范畴，核心开发组没有将其纳入内置功能的规划。后续为了保证核心的向后兼容性，也不会随意新增已有成熟CPAN实现的功能，避免不必要的核心迭代风险。
• 实现语义没有统一标准：深拷贝的行为预期在不同场景下差异极大：遇到循环引用时是抛出错误、保留引用关系还是直接忽略？遇到绑定了魔术属性的tie变量是否要拷贝魔术逻辑？遇到文件句柄、套接字、外部扩展对象这类资源型引用时应该如何处理？核心如果内置某一种固定实现，反而会限制不同场景的使用需求，不如交由CPAN的不同模块（如Storable、Clone）分别适配不同的行为策略，用户可以按需选择。
• 性能权衡：如果核心内置深拷贝功能，需要适配所有Perl内置数据类型、第三方扩展类型，会引入大量额外的分支判断逻辑，拖累核心的整体运行性能。而作为CPAN模块实现时，用户仅在有需要时才会加载对应功能，不会影响普通场景下的Perl运行效率。

日常开发中如果需要使用深拷贝，最常用的成熟方案是调用Storable模块的dclone方法，示例如下：

use Storable qw(dclone);
# 对嵌套结构执行深拷贝
my $copied_struct = dclone($original_struct);

该实现已经经过数十年的生产环境验证，可以覆盖绝大多数常规场景的深拷贝需求。

内容的提问来源于stack exchange，提问作者U. Windl