珀尔: "Variable will not stay shared"

Question

我查找了一些有关此警告的答案，但它们既没有帮助我，也没有真正理解 Perl 在这里所做的事情。这就是我想要它做的事情:

sub outerSub {
  my $dom = someBigDOM;
  ...
  my $otherVar = innerSub();
  return $otherVar;

  sub innerSub {
    my $resultVar = doStuffWith($dom);
    return $resultVar;
  }
}

所以基本上，我有一个大的 DOM 对象存储在 $dom 中，如果可能的话，我不想在堆栈上传递它。在outerSub 中，正在发生的事情需要innerSub 的结果。 innerSub 需要访问 $dom。当我这样做时，我收到此警告“变量 $dom 将不会保持共享”。

我不明白的是:

1. 这个警告与我有关吗？我的预期逻辑在这里会起作用还是会发生奇怪的事情？

2. 如果它没有按预期工作:可以这样做吗？使本地变量对嵌套子可见？还是将其作为参数传递更好？或者声明一个“我们的”变量更好？

3. 如果我将其作为参数推送，整个对象及其所有数据(可能有几 MB)是否会被推送到堆栈上？或者我可以只传递一些类似引用的东西吗？或者 Perl 自己将该参数作为引用处理吗？

4. 在 "Variable $foo will not stay shared" Warning/Error in Perl While Calling Subroutine ，有人谈论了一个匿名子，这将使这成为可能。我不明白它是如何工作的，从未使用过类似的东西。

5. 我根本不明白这个解释(可能是因为英语不是我的母语):“当调用内部子例程时，它将看到外部子例程变量的值，就像在调用之前和期间一样。第一次调用外部子例程；在这种情况下，第一次调用外部子例程完成后，内部子例程和外部子例程将不再共享变量的公共(public)值。":

“第一次调用外部子程序完成？是什么意思”
我的意思是:首先我调用外部子程序。外部子程序调用内部子程序。外部子系统当然仍在运行。一旦外部子完成，内部子也将完成。那么当内部子程序已经完成时，这些如何仍然适用呢？那么“第一个”电话呢？ “第二个”电话什么时候发生...抱歉，这个解释让我很困惑。

抱歉问了很多问题。也许有人至少可以回答其中的一些问题。

Answer 1

简而言之，第二次及之后的outerSub 调用将具有与innerSub 使用的不同的$dom 变量。您可以通过执行以下操作来解决此问题:

{
    my $dom;
    sub outerSub {
        $dom = ...
        ... innerSub() ...
    }
    sub innerSub {
        ...
    }
}

或者通过这样做:

sub outerSub {
    my $dom = ...
    *innerSub = sub {
        ...
    };
    ... innerSub() ...
}

或者这个:

sub outerSub {
    my $dom = ...
    my $innerSub = sub {
        ...
    };
    ... $innerSub->() ...
}

所有变量最初都是预先分配的，innerSub和outerSub共享相同的$dom。当您离开作用域时，perl 会遍历该作用域中声明的词法变量并重新初始化它们。因此，当对outerSub 的第一次调用完成时，它会获得一个新的$dom。不过，因为命名的 sub 是全局的，innerSub 不受此影响，并且继续引用旧的 $dom。所以如果第二次调用outerSub，它的$dom和innerSub的$dom实际上是独立的变量。

因此，要么将声明移出outerSub，要么使用匿名子(在运行时新绑定(bind)到词法环境)解决了问题。