perl – 在闭包内具有OO调用的静态本地调度表

概述我有一个调度表,我希望只初始化一次,并且只打算由一个函数使用.我希望将子程序之外的调度表移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此在函数外部移动表会将其与访问对象分开.我对此调度表还有哪些其他选择？ 我正在使用Perl 5.8,所以不幸的是我无法使用状态变量. sub foo { my ($self, $var) = @_; my %funcs = ( 我有一个调度表,我希望只初始化一次,并且只打算由一个函数使用.我希望将子程序之外的调度表移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此在函数外部移动表会将其与访问对象分开.我对此调度表还有哪些其他选择？

我正在使用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;

输出：

111

内部子是一个闭包,但$cb的初始化只执行一次.因此,关闭超过$self是第一个.

@H_419_44@ 总结

以上是内存溢出为你收集整理的perl – 在闭包内具有OO调用的静态本地调度表全部内容，希望文章能够帮你解决perl – 在闭包内具有OO调用的静态本地调度表所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。