perl – 在闭包内具有OO调用的静态本地调度表
发布时间:2020-12-16 06:29:22 所属栏目:大数据 来源:网络整理
导读:我有一个调度表,我希望只初始化一次,并且只打算由一个函数使用.我希望将子程序之外的调度表移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此在函数外部移动表会将其与访问对象分开.我对此调度表还有哪些其他选择? 我正在使用Pe
我有一个调度表,我希望只初始化一次,并且只打算由一个函数使用.我希望将子程序之外的调度表移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此在函数外部移动表会将其与访问对象分开.我对此调度表还有哪些其他选择?
我正在使用Perl 5.8,所以不幸的是我无法使用状态变量. sub foo { my ($self,$var) = @_; my %funcs = ( a => sub { $self->_a() },b => sub { $self->_b() },... ); return $funcs{$var}->(); } 解决方法
调度表中的函数是$self的闭包.如果你传入$self作为参数,你就可以解决这个问题.请注意,状态变量不是$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 } 这是一个为什么状态是一个坏主意的证明: 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 内部子是一个闭包,但$cb的初始化只执行一次.因此,关闭超过$self是第一个. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |