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";