Perl: Wie man ein gesegnetes Objekt tief kopiert?

Question

Ich suche eine tiefe Kopie eines gesegneten Objekts (an dieser Stelle seicht vielleicht).

Foo Klasse

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

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

Hauptprogramm

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

bar sowohl erscheint in $Foo::FOO und $copy. Ich weiß, dass ich eine Kopie des Objekts erstellen konnte, indem ich es als einrichtete, aber dann wäre es nicht mehr gesegnet; Außerdem würde dies nur für einfache Datenstrukturen funktionieren (momentan kein Problem). Ist die einzige Möglichkeit, diesen Weg zu kopieren und danach zu segnen (zB $copy = bless { %{$Foo::FOO} }, q{Foo};)?

Ich versuche, die Verwendung von Moose, Clone oder anderen Nicht-Core-Modulen/-Paketen zu vermeiden. Bitte beachten Sie dies bei der Antwort. So fett, dass es mehr herausragt :)

Answer 1

Das Kopieren sollte Teil der API sein. Der Benutzer Ihres Moduls würde niemals wissen, welche speziellen Aktionen bei der Erstellung eines neuen Objekts erforderlich sind (in Erwägung ziehen, jedes Objekt in einem my Hash in Ihrem Paket zu registrieren).

Daher bieten Sie eine clone Methode für Ihre Objekte. Darin können Sie alle schmutzigen Tricks verwenden, die Sie mögen:

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 

Plus können Sie mit Storable Haken herumzudaddeln feinere Steuerung zu behaupten, über Ihre Objekte zu kopieren (nicht, dass ich es getan habe, aber das ist, was die Dokumentation Ansprüche).

Answer 3

Es gibt keine gute Möglichkeit für das aufrufende Programm zu wissen, was "Kopieren eines Objekts" bedeutet, also sollte ein Objekt wissen, wie es sich selbst kopiert. Perl OO Sie bietet keine Hilfe beim hier, aber das herkömmliche, was zu tun ist so etwas wie dieses:

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; in @ chorba Antwort ist unzureichend. Es wird nur die erste Ebene klonen. Alle in $self gespeicherten Referenzen werden nicht geklont. Die Folgen davon sind ...

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

Sie haben vielleicht keine Referenzen jetzt, aber Sie werden wahrscheinlich später. Oder jemand anderes wird einen in dein Objekt stecken. Oder sie unterklassifizieren und fügen eins hinzu.

Sie können eine tiefe Klonroutine schreiben, aber es ist nicht einfach. Ich würde sehr empfehlen, Clone zu verwenden. Es hat keine Abhängigkeiten und Sie können Clone.pm einfach in Ihr Projekt kopieren.

Die andere Alternative ist Storable::dclone, erwähnt von @Zaid, die seit langer Zeit im Kern ist.

Unabhängig davon, was Sie verwenden, ist die Bereitstellung einer Klonmethode für Ihre Klasse das Richtige, auch wenn es nur ein Wrapper um Clone oder Storable :: dclone ist. Dies schützt den Benutzer Ihres Objekts vor den Details, wie Ihr Objekt geklont wird.

Answer 5

Es tut mir leid, ich kann diesen Satz nicht bemerken:

* Ich versuche, mit Elch, Klonen oder andere Nicht-Core-Module/Pakete zu vermeiden, so wenden Sie sich bitte, dass im Auge behalten, wenn die Beantwortung . Bolted, so dass es mehr herausragt :) *

so konnte diese Antwort nicht akzeptiert werden!