简介
深度复制 Perl 中的数据结构;
可以像下面这样使用
use Clone 'clone';
my $data = {
set => [ 1 .. 50 ],
foo => {
answer => 42,
object => SomeObject->new,
},
};
my $cloned_data = clone($data);
$cloned_data->{foo}{answer} = 1;
print $cloned_data->{foo}{answer}; # '1'
print $data->{foo}{answer}; # '42'
也可以把它应用到你的类中
package Foo;
use parent 'Clone';
sub new { bless {}, shift }
package main;
my $obj = Foo->new;
my $copy = $obj->clone;
详细说明
这个模块提供了一个 clone
方法,使用这个方法可以递归地复制嵌套的hash,array,scalar和reference类型的值,包括绑定的对象和变量。clone()
接收一个标量作为参数,并且进行深度复制。
my $copy = clone (\@array);
# or
my %copy = %{ clone (\%hash) };
注:它能够正确的处理,递归引用(循环引用)或自引用的hash结构。