我有一个调度表,我只想初始化一次,并且只打算由一个函数使用。我希望将调度表移到子例程之外并移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此将表移到函数外部会将其与对对象的访问分开。对于此调度表,我还有哪些其他选项?
我使用的是Perl 5.8,所以很遗憾我无法使用state
变量。
sub foo {
my ($self, $var) = @_;
my %funcs = (
a => sub { $self->_a() },
b => sub { $self->_b() },
...
);
return $funcs{$var}->();
}
调度表中的函数是 $self
上的闭包。如果将$self
作为参数传入,则可以解决此问题。注意state
变量不是$self
上的真闭包,也需要一个显式参数。
my %funcs = (
a => sub { shift->_a }, # these are like anonymous methods
b => sub { shift->_b },
);
sub foo {
my ($self, $var) = @_;
my $meth = $funcs{$var} || die "There is no entry $var";
return $self->$meth(); # sugary syntax
}
以下是为什么state
是一个坏主意的演示:
use 5.010;
package Foo;
sub new { my ($c, $v) = @_; bless $v, $c }
sub foo {
my ($self) = @_;
state $cb = sub { say $$self };
$cb->();
}
Foo->new($_)->foo for 1..3;
输出:
1
1
1
内部 sub 是一个闭包,但 $cb
的初始化只执行一次。因此,封闭的$self
是第一个。