perl - memoize 是否对 perl 对象进行深拷贝？

我设计了一个返回对象表的函数。这些对象的内容尚未定义，但我想在每次调用之间进行深度复制(如在 Java 中)。

memoize 如何恢复返回值？它是否对它进行了深度复制？没有说明在 Memoize 模块帮助中返回之前如何复制答案。

# How i solved the problem at first....
use Storable qw(dclone);
my $saved_value ; # undef
sub get_all {
    return dclone($saved_value) if (defined $saved_value) ;
    ....
    $saved_value = dclone( $ans ) ;
    return $ans
}

最佳答案

试试看？

use Memoize;
sub foo { {bar=>[1..4]} }
memoize('foo');
foo()->{'bar'}[3] = 5;
print foo()->{'bar'}[3];

打印 5，所以它不会进行深拷贝。我离开看看它是否甚至将浅拷贝作为练习。

关于perl - memoize 是否对 perl 对象进行深拷贝？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27948277/