如何在 Perl 中禁用常量折叠？

问题描述

给定一个命令，如

perl -MO=Deparse -E'use constant FOO => 42; print FOO()'

如何禁用常量折叠，以便

print 42;

给我看

print FOO();

之类的。 理想情况下，我希望这是一个适用于所有 Perl 的编译器选项。您可以在 perl 邮件列表 [perl #97942] [PATCH] Add -DO option to disable optimizations and disable constant folding and the peephole optimizer when used. 上的此线程中看到有关此内容的讨论。我试过 -DO 但没有用。如果该选项不起作用，我愿意接受变通方法，但它们可能会出现。

解决方法

常量将自己呈现为 subs。您可以使用 sub 执行的操作：

• 将其作为函数调用 (FOO,FOO())
• 在覆盖原型 (&FOO()) 时将其作为函数调用
• 在继承 @_ (&FOO) 时将其作为函数调用
• 将其作为方法调用 (__PACKAGE__->FOO)
• 创建对它的引用（\&FOO、*FOO{CODE}。还有需要代码引用的 *FOO。）

只有第一个被折叠。因此，您可以使用

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say &FOO()' 2>&1 | grep FOO
5  <#> gv[*FOO] s

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say &FOO' 2>&1 | grep FOO
5  <#> gv[*FOO] s

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say __PACKAGE__->FOO' 2>&1 | grep FOO
6  <.> method_named[PV "FOO"] l

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say+ (\&FOO)->()' 2>&1 | grep FOO
5  <#> gv[*FOO] s

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say *FOO{CODE}->()' 2>&1 | grep FOO
5  <#> gv[*FOO] s

$ perl -MO=Concise,-exec -E'use constant FOO=>42; say *FOO->()' 2>&1 | grep FOO
5  <#> gv[*FOO] s

,

您可以做的一种方法是在常量前加上 &,

perl -MO=Deparse -E'use constant FOO => 42; print &FOO()'

来自 perldoc perlsub 上的文档

常量函数 具有“()”原型的函数是内联的潜在候选对象。如果优化和常量折叠后的结果是常量或没有其他引用的词法范围标量，则它将用于代替没有 & 的函数调用。使用 & 进行的调用永远不会内联。