如何在Perl中创建一个模块全局内部变量？

Question

我想在我的模块中创建一个静态变量。我怎样才能做到这一点？我可以使用our或state吗？

这里是什么，我想实现一个例子：

use MyModule; 
MyModule::increase_count(); # should return 0 
MyModule::increase_count(); # should return 1 
MyModule::increase_count(); # should return 2 

Answer 1

如果您要访问$counter变量直接外MyModule包，使用our，但如果你不那么my是应该是什么使用

package MyModule; 

my $counter = 0; 
sub increase_count { 

    return $counter++; 
} 

Answer 2

如果你想使用state（这是一个好主意）：

package MyModule; 

# return the previous value 
sub increase_count { 
    state $count = 0; 
    return $count++; 
} 

使用state可以最小化符号的可见性。如果你有共享的知名度翻过多个潜艇，你可以在一个块中附上一个词法变量：

{ 
    my $count = 0; 
    sub increase_count { $count++ } 
    sub current_count { $count } 
    sub decrease_count { $count-- } 
}