陣列deepcopy而不是perl對象中的引用

Question

我試了幾個小時纔將子數組存儲到一個對象中並失敗。也許你的某個人可以告訴我如何用perl存儲深層副本。 sry我不知道這個問題是否清楚，但應該很容易解決...

這裏的例子。

這裏的對象類

package obj; 

use strict; 
use warnings; 
require Exporter; 
our @ISA = qw(Exporter); 

sub new(\@){ 
    my $class=shift; 
    my $this={}; 
    $this->{"array"}=shift; 
    return bless($this,$class); 
} 

sub getArray(){ 
    my $this=shift; 
    return $this->{"array"}; 
} 

和測試類

use strict; 
use warnings; 
use obj; 

my @a=(1,2); 
push @a,3; 
my $ob=obj->new(\@a); 
@a=(); 
print @{$ob->getArray()}; 

這個沒有返回值 - 不數組解引用轉變？

那麼該怎麼做？

thx

Answer 1

尊重什麼數組？參與這一轉變的唯一陣容是@_？ $_[0]是一個標量，而不是一個數組。

A（淺）陣列複製使用完成：

@dst = @src; 

所以要

@{ $this->{"array"} } = @{ shift }; 

如果你真的想要一個深拷貝（雖然沒有必要爲它在你的例子），使用

use Storable qw(dclone); 

$this->{"array"} = dclone(shift);