Perl: Làm thế nào để sao chép sâu một đối tượng may mắn?

Question

Tôi đang tìm cách làm sâu (tại thời điểm này, cạn có thể đủ) bản sao của một đối tượng may mắn.

Foo Lớp

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

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

Chương trình chính

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

bar xuất hiện trong cả hai $Foo::FOO và $copy. Tôi nhận ra rằng tôi có thể tạo một bản sao của đối tượng bằng cách thiết lập nó như là , nhưng sau đó nó sẽ không còn được ban phước; ngoài ra, điều này sẽ chỉ làm việc cho các cấu trúc dữ liệu đơn giản (ngay bây giờ không phải là một vấn đề). Cách duy nhất để sao chép theo cách này và sau đó chúc lành cho sau (ví dụ: $copy = bless { %{$Foo::FOO} }, q{Foo};)?

Tôi đang cố gắng tránh sử dụng Moose, Clone hoặc các mô-đun/gói không phải cốt lõi khác, vì vậy, hãy nhớ điều đó khi trả lời. Được in đậm để nổi bật hơn :)

Answer 1

Sao chép phải là một phần của API. Người dùng mô-đun của bạn sẽ không bao giờ biết những hành động đặc biệt nào được yêu cầu khi tạo một đối tượng mới (xem xét đăng ký từng đối tượng trong một băm my trong gói của bạn).

Vì vậy, hãy cung cấp phương thức clone cho các đối tượng của bạn. Bên trong nó, bạn có thể sử dụng bất kỳ thủ đoạn bẩn nào bạn thích:

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 

Thêm vào đó bạn có thể fiddle xung quanh với móc storable để khẳng định kiểm soát tốt hơn sao chép đối tượng của bạn (không phải là tôi đã làm được điều đó, nhưng đó là những gì những tuyên bố tài liệu).

Answer 3

Không có cách nào tốt cho chương trình gọi điện thoại để biết những gì "sao chép một đối tượng" đòi hỏi, do đó, một đối tượng nên biết làm thế nào để sao chép chính nó. OO Perl không cung cấp cho bạn bất kỳ sự giúp đỡ ở đây, nhưng điều thường làm là một cái gì đó như thế này:

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; trong câu trả lời @ Chorba là không đủ. Nó sẽ chỉ sao chép lớp đầu tiên. Mọi tham chiếu được lưu trữ trong $self sẽ không được sao chép. Hậu quả của việc này là ...

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

Bạn có thể không có bất kỳ tham chiếu nào, nhưng có thể bạn sẽ sau này. Hoặc ai đó khác sẽ dính vào một đối tượng của bạn. Hoặc họ sẽ phân lớp và thêm một.

Bạn có thể viết thói quen nhân bản sâu, nhưng nó không đơn giản. Tôi rất muốn giới thiệu sử dụng Clone. Nó không có phụ thuộc và vì vậy bạn có thể chỉ cần sao chép Clone.pm vào dự án của bạn.

Phương án thay thế khác là Storable::dclone, được đề cập bởi @Zaid, đã được sử dụng trong một thời gian dài.

Không có vấn đề gì bạn sử dụng, cung cấp một phương pháp nhân bản trên lớp học của bạn là điều phải làm, ngay cả khi nó chỉ là một wrapper xung quanh Clone hoặc Storable :: dclone. Điều này sẽ bảo vệ người dùng đối tượng của bạn khỏi các chi tiết về cách đối tượng của bạn được nhân bản.

Answer 5

Tôi xin lỗi, tôi không thể nhận thấy câu này:

* Tôi đang cố gắng để tránh sử dụng Moose, Clone, hoặc khác không-Core modules/gói, vì vậy hãy giữ cho rằng trong tâm trí khi trả lời . Được in đậm để nó nổi bật hơn :) *

để câu trả lời này không thể được chấp nhận!

#!/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";