回答。

历史上，Perl支持变量的词法作用域，这使得使用闭包成为可能——这些函数保存外部环境。当闭包引用超出其作用域的变量，或当嵌套结构创建循环引用时，会出现问题，这导致内存泄漏，因为对引用的处理不当。

解决方案是使用闭包来创建函数工厂和函数式风格，同时记住在闭包外部作用域中引用变量时要正确管理引用。

代码示例：

sub make_counter {
    my $count = 0;
    return sub {
        $count++;
    };
}

my $counter = make_counter();
print $counter->(), "
"; # 0
print $counter->(), "
"; # 1

关键特点：

Lambda函数保存外部变量的值。
闭包方便状态的封装。
在闭合复杂对象的引用时，存在内存泄漏的高风险。

具有欺骗性的问答。

如果返回一个引用自身的匿名函数，会发生什么？

将创建一个循环引用，Perl无法通过垃圾收集自动清理。这会导致内存泄漏。为解决此问题，使用弱引用，模块Scalar::Util：

use Scalar::Util qw(weaken);
my $foo;
$foo = sub { ... $foo ... };
weaken($foo);

闭包总是捕获变量的“副本”，还是对同一变量的引用？

闭包总是操作当前变量，它的作用域在创建闭包时固定。因此，对于所有闭包函数调用，该变量都是相同的。

可以使闭包在外部修改状态时工作，但不持有对它的强引用吗？

可以，使用弱引用（Scalar::Util::weaken）或者将代码结构化，以便引用仅在需要的地方被保持（例如，每次调用闭包时传递外部数据）。

常见错误和反模式

在循环中创建闭包并捕获循环变量（隐式绑定到最后一个值）。
对重对象保持强引用而没有使用弱引用。
使用闭包进行一次性任务而没有封装状态的好处。

实际案例

负面案例

创建了一个回调闭包，闭包捕获了OO对象中的$self，并保留在回调哈希中。对象销毁后，内存不会被释放。

优点：

处理回调很简单。

缺点：

由于循环引用，内存永远不会被释放。

正面案例

闭包通过Scalar::Util::weaken正确地弱引用了$self：

use Scalar::Util qw(weaken);
my $cb = sub {
  my $self = shift;
  weaken($self);
  ...
};