perl - 在 Perl 中从符号表中删除名称后访问包变量？

Question

我尝试从main::符号表中删除一个包变量的名称，如下所示，但似乎后面的代码仍然可以引用该变量，为什么删除后可以引用它？从符号表中删除名称有什么影响？

$n = 10;
delete $main::{'n'};
print $n;

Answer 1

编译 Perl 代码时，将查找(并根据需要创建)包变量/符号的 glob，并直接从编译的代码中引用。

因此，如果删除符号表条目 $pkg::{n}，则所有已编译的使用 $pkg::n 的代码，@ pkg::n等，仍然使用原来的glob。但 do/require 代码或 eval STRING 或符号引用则不会。

这段代码最终得到两个 *n 的 glob；在删除执行之前编译的所有代码都将引用原始代码；之后编译的所有代码都将引用新代码(符号引用将获取运行时该点符号表中的任何一个)。

$n = 123;
delete $::{n};
eval '$n=456';
print $n;
eval 'print $n';

另一个例子:

$n = 123;
sub get_n { $n }
BEGIN { delete $::{n} }
$n = 456;
print get_n();
print $n;