perl - perl 中变量的作用域

Question

在以下代码中，$ref 引用的匿名数组在什么范围内可用。

mod1.pm:package mod1;sub do_something{ ..... my $array_ref = ["elemnt1","elmnt2"] ; return $array_ref ;}1;file.pluse mod1;my $ref = mod1::do_something() ;print "$ref->[0]  $ref->[1] " ; #works

Answer 1

从这个问题来看，您似乎正在为变量范围与引用指向的数据持久性之间的差异而苦苦挣扎。数据 ["elemnt1","elmnt2"] 被分配给在 do_something 结束时超出范围的变量 ($array_ref)。但是，因为它被返回，所以存在对数据的引用，并且即使 $array_ref 超出范围它仍然存在。

我上次检查时，perl 使用引用计数进行垃圾回收，因此该数组在最后一次引用超出范围之前不会被垃圾回收，例如，如果您在示例末尾取消设置 $ref .