当前位置：文江博客话题详情

如何内联 Perl 子例程？

发布于 2024-09-29 22:05:10 字数 343 浏览 8 评论 0原文

我正在阅读Code Complete 2，其中提到的一点是关于创建子例程，即使是对于看似的操作太简单了，没有自己的子例程，这会有什么帮助。

我知道我可以使用 inline 关键字C 和 C++ 中的内联函数。但我从未遇到过在 Perl 中内联子例程的方法。

有没有办法告诉 Perl 解释器内联子例程调用（或者为什么不）？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

冷情 2024-10-06 22:05:10

常量子例程，即具有空原型和常量返回值的子例程，是内联的。这就是 constant 编译指示定义常量的方式：

sub five() { 5 }

如果在第一次使用之前看到它，则它将被内联。

否则，Perl 允许在运行时动态重新定义子例程，因此内联不适合。

对于在给定相同输入的情况下始终返回相同值的子例程，您可以使用记忆化。

《Perl 编程》第 13 章提供了有关所采取的优化步骤的一些信息由 Perl 编写。

这称为常量折叠。常量折叠并不限于简单的情况，例如在编译时将 2**10 转换为 1024。它还解析函数调用——满足第 6 章子例程中“内联常量函数”部分的标准的内置子例程和用户声明的子例程。让人想起 FORTRAN 编译器对其自身内在函数的臭名昭著的了解，Perl 也知道在编译期间要调用哪些自己的内置函数。这就是为什么如果您尝试取 0.0 的对数或负常量的 sqrt，您将引发编译错误，而不是运行时错误，并且解释器根本不会运行。

另请参阅 perldoc perlguts。

您可以自己看到常量折叠的效果：

#!/usr/bin/perl

use strict; use warnings;

sub log_ok () { 1 }

if ( log_ok ) {
    warn "log ok\n";
}

perl -MO=Deparse t.pl

输出：

sub log_ok () { 1 }
use warnings;
use strict 'refs';
do {
    warn "log ok\n"
};
t.pl syntax OK

这里，常量折叠导致用 do 块替换 if 块，因为编译器知道 >log_ok 总是返回一个真值。另一方面，使用：

#!/usr/bin/perl

use strict; use warnings;

sub log_ok () { 0.5 > rand }

if ( log_ok ) {
    warn "log ok\n";
}

Deparse 输出：

sub log_ok () {
    use warnings;
    use strict 'refs';
    0.5 > rand;
}
use warnings;
use strict 'refs';
if (log_ok) {
    warn "log ok\n";
}
t.pl syntax OK

C 编译器可能已将 if (log_ok) 替换为 if ( 0.5 > rand ) 。 perl 不这样做。

Constant subroutines, i.e. subroutines with an empty prototype and constant return value, are inline. That is how the constant pragma defines constants:

sub five() { 5 }

would be inlined if it is seen before its first use.

Otherwise, Perl allows subroutines to be dynamically redefined at run time, so inlining is not suitable.

For subroutines that always return the same value given the same inputs, you can use memoization.

Chapter 13 of Programming Perl provides some information on the optimization steps taken by perl.

This is called constant folding. Constant folding isn't limited to simple cases such as turning 2**10 into 1024 at compile time. It also resolves function calls -- both built-ins and user-declared subroutines that meet the criteria from the section "Inlining Constant Functions" in Chapter 6, Subroutines. Reminiscent of FORTRAN compilers' notorious knowledge of their own intrinsic functions, Perl also knows which of its own built-ins to call during compilation. That's why if you try to take the log of 0.0 or the sqrt of a negative constant, you'll incur a compilation error, not a run-time error, and the interpreter is never run at all.

See also perldoc perlguts.

You can see the effect of constant-folding yourself:

#!/usr/bin/perl

use strict; use warnings;

sub log_ok () { 1 }

if ( log_ok ) {
    warn "log ok\n";
}

perl -MO=Deparse t.pl

Output:

sub log_ok () { 1 }
use warnings;
use strict 'refs';
do {
    warn "log ok\n"
};
t.pl syntax OK

Here, constant folding led to the replacement of the if block with a do block because the compiler knew that log_ok would always return a true value. On the other hand, with:

#!/usr/bin/perl

use strict; use warnings;

sub log_ok () { 0.5 > rand }

if ( log_ok ) {
    warn "log ok\n";
}

Deparse output:

sub log_ok () {
    use warnings;
    use strict 'refs';
    0.5 > rand;
}
use warnings;
use strict 'refs';
if (log_ok) {
    warn "log ok\n";
}
t.pl syntax OK

A C compiler might have replaced the if (log_ok) with if ( 0.5 > rand ). perl does not do that.

回复收藏 0 原文