Perl：如何深层复制一个有福的对象？

Question

我正在寻找做一个深奥的（在这一点上，浅可能就够了）复制一个祝福的对象。

Foo类

package Foo; 
our $FOO = new Foo;  # initial run 

sub new { 
    my $class = shift; 
    my $self = {}; 
    bless $self, $class; 
    return $self; 
} 

主程序

use Foo; 
my $copy = $Foo::FOO;  # instead of creating a ref, want to deep copy here 
$copy->{bar} = 'bar'; 

bar同时出现在$Foo::FOO和$copy。我意识到我可以通过将其设置为来创建对象的副本，但不会再被祝福;此外，这只适用于简单的数据结构（现在不是问题）。唯一的方法就是复制这种方式然后祝福（例如$copy = bless { %{$Foo::FOO} }, q{Foo};）？

我试图避免使用驼鹿，克隆或其他非核心模块/软件包，因此请在回复时记住这一点。因此它更加突出:)

Answer 1

复制应该是API的一部分。模块的用户永远不会知道在创建新对象时需要执行什么特殊操作（考虑将包中的每个对象注册到my散列中）。

因此，请为您的对象提供clone方法。在里面，你可以使用任何你喜欢的肮脏的技巧：

sub clone { 
    my $self = shift; 
    my $copy = bless { %$self }, ref $self; 
    $register{$copy} = localtime; # Or whatever else you need to do with a new object. 
    # ... 
    return $copy; 
} 

Answer 2

use Storable 'dclone';？

$ corelist Storable 

Storable was first released with perl v5.7.3 

另外，您可以摆弄可保存钩在复制你的对象断言更好的控制（不，我已经做到了，但是这就是文档索赔）。

Answer 3

调用程序没有什么好方法来知道“复制对象”需要什么，所以对象应该知道如何复制自己。 Perl的OO并不在这里为你提供任何帮助，但做传统的事情是这样的：

package Car; 

sub clone { 
    my ($self) = @_; 

    return $self->new(
     (map { $_ => $self->$_() } qw/make model/), # built-in types 
     engine => $self->engine->clone(), # copying an object 
    ); 
} 

Answer 4

my $copy = bless { %$self }, ref $self;在@乔巴的答案是不够的。它只会克隆第一层。存储在$self中的任何参考都不会被克隆。这样做的后果是...

$obj->{ponies} = [qw(Dash Sparkle Jack)]; 
$clone = $obj->clone; 
push @{$clone->{ponies}}, "Pinkie"; 
print join ", ", @{$obj->{ponies}}; # Dash Sparkle Jack Pinkie 

您现在可能没有任何参考，但您可能会晚一点。或者其他人将一个人粘在你的物体上。或者他们将继承并添加一个。

你可以写一个很深的克隆程序，但并不简单。我强烈建议使用Clone。它没有依赖关系，因此您可以简单地将Clone.pm复制到您的项目中。

另一种选择是Storable::dclone，由@Zaid提到，它已经在核心很长一段时间了。

无论你使用什么，在你的类上提供一个克隆方法是正确的，即使它只是一个围绕Clone或Stored :: dclone的包装。这会将你的对象的用户从你的对象克隆的细节中屏蔽掉。

Answer 5

我很抱歉，我不能看到这样一句话：

* 我想回答时要避免使用驼鹿，克隆或其他非核心模块/包，所以请记住这一点。所以它突出更多:) *

所以这个答案不能被接受！

#!/usr/bin/env perl -w 
use strict; 
use warnings; 
use Storable; 
use Data::Dumper; 

my $src = { 
    foo => 0, 
    bar => [0,1] 
}; 

$src -> {baz} = $src; 
my $dst = Storable::dclone($src); 
print '$src is : '.Dumper($src)."\n"; 
print '$dst is : '.Dumper($dst)."\n";