曲径通幽论坛

标题: 持久性私有变量(静态变量, state) [打印本页]

作者: beyes 时间: 2011-9-24 17:57
标题: 持久性私有变量(静态变量, state)
和 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 在每次调用退出时都能够保存原先的值。

欢迎光临曲径通幽论坛 (http://www.groad.net/bbs/)