Perl中local关键字与引用结合失效问题及解决方案咨询

问题背景 #

现有如下Perl代码：

use v5.36;
use warnings;

our $foo = 'foo';
our %bar = (
  foo => \$foo,
  baz => 'baz',
);

{
  local ($foo, %bar) = ($foo, %bar);
  ($foo, $bar{baz}) = qw(oof zab);
  print "<$foo ${$bar{foo}} $bar{baz}>";
}

print "<$foo ${$bar{foo}} $bar{baz}>";

当前代码输出为：<oof foo zab><foo foo baz>，期望修改后输出：<oof oof zab><foo foo baz>，且不能将%bar的完整定义复制到内部作用域。

补充说明：外部作用域是包含大量类似变量与依赖函数的已有代码，内部作用域是测试逻辑，需要基于变量初始状态本地化修改后测试，复制大量变量定义易过时，曾怀疑local行为是Perl Bug。

解决方案 #

问题核心在于：local %bar是对哈希的浅拷贝，哈希中foo项存储的是指向**外部原始$foo**的引用，而非本地化后的$foo。因此需要在本地化后手动更新哈希里的引用指向，具体修改如下：

use v5.36;
use warnings;

our $foo = 'foo';
our %bar = (
  foo => \$foo,
  baz => 'baz',
);

{
  # 分别本地化变量，避免一次性赋值的顺序问题
  local $foo = $foo;
  local %bar = %bar;
  # 将哈希中的foo引用指向本地化后的$foo
  $bar{foo} = \$foo;
  
  ($foo, $bar{baz}) = qw(oof zab);
  print "<$foo ${$bar{foo}} $bar{baz}>";
}

print "<$foo ${$bar{foo}} $bar{baz}>";

原理说明 #

1. local $foo = $foo会创建当前作用域内的本地化变量，继承外部变量的初始值，但与外部变量完全独立。
2. local %bar = %bar浅拷贝外部哈希，此时哈希内的foo项仍指向外部原始$foo，所以需要手动将$bar{foo}重新赋值为\$foo，使其指向当前作用域的本地化变量。
3. 这种方式无需复制整个%bar的定义，仅调整引用指向，既保留了测试所需的初始状态，又避免了复制大量代码导致的维护问题。

这并非Perl的Bug，local的设计逻辑就是本地化变量本身，而非自动修正变量引用的指向，哈希的浅拷贝也不会处理引用的深层关联，手动调整引用是符合Perl设计的合理操作。

内容的提问来源于stack exchange，提问作者Damian