Perl语言入门（第8版）

86

｜

第

4

章

The sum of (5 6) is 11

The sum of (5 6 1 2 3) is 17

The sum of (5 6 1 2 3 4) is 21

但在使用数组和哈希类型的

state

变量时，还是有些限制的。

Perl 5.10

中我们无法在

列表上下文中初始化数组和哈希类型的

state

变量：

state @array = qw(a b c); #

错误！

这样做会报错，并提示将来版本的

Perl

也许支持这种方式。即使到了

Perl 5.24

，我们

还是无法这么用：

Initialization of state variables in list context currently forbidden ...

这个限制在

Perl 5.28

中被取消了，它允许你在

state

中初始化数组和哈希。例如，斐

波那契数生成器需要前两个数才能启动，因此你可以使用它们作为

@numbers

数组的种

子：

use v5.28;

say next_fibonacci(); # 1

say next_fibonacci(); # 2

say next_fibonacci(); # 3

say next_fibonacci(); # 5

sub next_fibonacci {

state @numbers = ( 0, 1 );

push @numbers, $numbers[-2] + $numbers[-1];

return $numbers[-1];

}

在

Perl 5.28