持久性私有变量(静态变量, state)

beyes

和 C 语言一样， Perl 也有类似于静态变量的概念，在 Perl 里它称为持久性私有变量。该类型变量在退出函数时还能保存上次运算后的值。声明该类型变量使用关键字 state 。

考虑下面的代码：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl
use strict;

sub addnum {
        my $n += 1;
        print "value of n is $n!\n";
}

addnum();
addnum();
addnum();

运行输出：

./state.pl
value of n is 1!
value of n is 1!
value of n is 1!

可见，每次调用子函数 addnum() 后输出 $n 的值都为 1 。

下面使用 state 声明 addmun() 里面的 $n 变量(注意，该特性适用于 5.10 版本的 Perl，所以程序中要声明 use 5.010 )：

[Perl] 纯文本查看 复制代码

use 5.010;
use strict;

sub addnum {
        state $n += 1;
        print "value of n is $n!\n";
}

addnum();
addnum();
addnum();

运行输出：

./state.pl
value of n is 1!
value of n is 2!
value of n is 3!

由输出可见，变量 $n 在每次调用退出时都能够保存原先的值。