请问perl中如何拷贝一个对象

oyd_admin

UID: 41183
帖子: 5
积分: 11
在线时间: 10 分钟

1^# oyd_admin 发表于 2008-12-10 15:42

请问perl中如何拷贝一个对象

就是从一个对象A创建出另一个状态相同的对象B，并且以后对B对象的操作不会影响到A。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-12-10 15:53

你说的"对象"是嘛？object? 那要看对应的 class 有没有相应的拷贝函数了

oyd_admin

UID: 41183
帖子: 5
积分: 11
在线时间: 10 分钟

3^# oyd_admin 发表于 2008-12-10 17:04

就是说perl不会自动生成一个默认拷贝函数了？

那么遇到一个复杂的包含了许多嵌套class组合起来的对象，那么要对它进行拷贝操作的话，我就要为其中牵涉进来的每一个class手写一个拷贝函数了。这样是不是太繁琐了。

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

4^# hfahe 发表于 2008-12-10 17:16

有模块来做深拷贝这样的事情吧

oyd_admin

UID: 41183
帖子: 5
积分: 11
在线时间: 10 分钟

5^# oyd_admin 发表于 2008-12-10 17:28

我尝试在CPAN上搜了几下，如obj copy， class copy 都找不到结果，英文不太好。

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

6^# hitsubunnu 发表于 2008-12-12 10:17

必须手工实现

大骆驼和 perlobj 都有提到

可以写一个这个样的方法

sub clone {
      my $model = shift;
      my $self = $model->new(%$model, @_);
      return $self;       # 前面被 ->new 赐福过了
}

生成的对象调用 clone方法实现拷贝

参见大骆驼 12.4.2 初始器