尝试通过 Perl 中的词法绑定本地化外部包变量

Question

标题很长，但我恐怕一个字都删不掉，又不失问题的真正含义。我将首先快速描述我想要实现的目标，然后长篇大论地阐述为什么我希望以这种方式完成它。如果您打算直接回答问题标题，请跳过漫无目的的内容:-)

快速描述

假设存在一个 lexicalize 内置函数可以满足我的要求，这里是：

package Whatever;
{
  lexicalize $Other::Package::var;
  local $var = 42;
  Other::Package->do_stuff; # depends on that variable internally
}

为什么和为什么

不在上下文中，我正在对第三方模块进行白盒测试。

我想要变量本地化，因为我希望它仅在有限的时间内发生变化，然后再进行其他测试。 local 是我发现执行此操作的最佳方法，无需依赖于了解模块对初始值的选择。

我想要一个词法绑定有两个主要原因：

1. 我不想污染测试文件的更高级别的命名空间。
2. 我想要比完全限定名称更短的名称。为了简洁起见，它没有出现在示例代码中，但我使用的标识符比显示的要多得多，并进行了相对于其先前值的计算和更新。

我无法正常使用 our 因为它不会从另一个包中获取变量：““our”中的变量 $Other::Package::var 不允许使用包名称。”作弊暂时进入 Other::Package 的范围并不会减少它：如果我使用块 ({ package Other::Package; our $var }) 那么绑定不会持续足够长的时间有用；如果我不这样做（package Other::Package; our @var; package main），那么我需要知道并复制前一个包的名称，这可以防止过多地移动该代码段。

在问这个问题的先前形式之前做功课时，我发现了 Lexical::Var，这似乎正是我所需要的。唉：“无法通过参考进行本地化。”

我还尽了最大努力凭直觉感受基于 my *var 的表单，但不断遇到语法错误。今天，关于范围界定和绑定，我学到的东西比我关心的还要多:-)

我想不出为什么我想要的东西不可能实现的原因，但我找不到正确的咒语。我是否要求一个不幸的未实现的边缘情况？

Answer 1

如果我没听错的话，你所需要的就是我们的。如果我不这样做，请原谅我。

这是工作示例：

#!/usr/bin/env perl
use strict;
use warnings;

package Some;

our $var = 42;
sub do_stuff { return $var }

package main;

{
    local $Some::var = 43;
    print "Localized: " . Some->do_stuff() . "\n";
};

print "Normal: " . Some->do_stuff() . "\n";

但是如果您尝试本地化某些包的私有（my）变量，您可能做错了什么。

Answer 2

有几种方法可以做到这一点：

• 给出：

  {包测试::Pkg;
      我们的 $var = 'init';
      子方法 {print "Test::Pkg::var = $var\n"}
  }
  

• 将当前包的包变量别名为目标包。

  <前><代码>{
  包主；
  我们的 $var;

  测试::Pkg->方法; # 测试::Pkg::var = init

  本地 *var = \local $Test::Pkg::var;
  # 将 $var 别名为本地化的 $Test::Pkg::var

  $var = '新值';

  测试::Pkg->方法; # Test::Pkg::var = 新值
  }

  测试::Pkg->方法; # 测试::Pkg::var = init

• 通过全局引用进行本地化：

  <前><代码>{
  包主；

  我的 $var = \*Test::Pkg::var; # globref 以本地为目标

  测试::Pkg->方法; # 测试::Pkg::var = init

  local *$var = \'新值'; # 填充 glob 的标量槽

  测试::Pkg->方法; # Test::Pkg::var = 新值
  }

  测试::Pkg->方法; # 测试::Pkg::var = init

• 绑定目标包中的词法，并让它溢出到当前包中：

  <前><代码>{
  包装测试::Pkg; # 目标包中
  我们的 $var; # 为 $Test::Pkg::var 创建词法名称 $var

  包主； # 进入主包，词法仍在范围内

  测试::Pkg->方法; # 测试::Pkg::var = init

  local $var = '新值';

  测试::Pkg->方法; # Test::Pkg::var = 新值
  }

  测试::Pkg->方法; # 测试::Pkg::var = init

最后一个示例使用稍微尴尬的双包声明在一个包中创建词法并将其放入另一个包中。这个技巧对于其他场景中的 local 很有用：

 no strict 'refs';
 local ${'Some::Pkg::'.$name} = 'something';
 use strict 'refs';

Answer 3

我不太确定我的理解是否正确。这有帮助吗？

#!/usr/bin/env perl

{
    package This;
    use warnings; use strict;
    our $var = 42;

    sub do_stuff {
        print "$var\n";
    }
}

{
    package That;
    use warnings; use strict;

    use Lexical::Alias;
    local $This::var;

    alias $This::var, my $var;

    $var = 24;
    print "$var\n";

    This->do_stuff;
}

package main;

use warnings; use strict;

This->do_stuff;

Answer 4

package Other::Package;

$var = 23;

sub say_var {
  my $label = shift;
  print "$label: $Other::Package::var\n";
}

package Whatever;
Other::Package::say_var("before");
{
  local $Other::Package::var = 42;
  local *var = \$Other::Package::var;
  Other::Package::say_var("during");
  print "\$Whatever::var is $var inside the block\n";
}
Other::Package::say_var("after");
print "\$Whatever::var is ",
    defined($var) ? "" : "un", "defined outside the block\n";

输出：

before: 23
during: 42
$Whatever::var is 42 inside the block
after: 23
$Whatever::var is undefined outside the block

local $Other::Package::var 在块的持续时间内暂时将原始值设置为 42，并且 local *var = \$Other::Package::var code> 使当前包中的 $var 在块的持续时间内临时成为 $Other::Package::var 的别名。

当然，其中一些不符合严格标准，但我避免使用our，因为如果两个包都在同一个文件中，our会混淆问题（如果您复制粘贴此示例，可能会出现这种情况）— our 声明可能会从它所使用的包中泄漏到同一文件中的以下包中:)