在perl中,子例程如何获得指向自身的coderef?

__SUB__ 已经添加到5.16中,提供了这种可用性。

我想 Sub::Current 会解决你的问题。

要在不使用额外变量的情况下获得对当前子例程的引用,可以使用函数式编程中的工具y-combinator,它基本上抽象了创建闭包的过程。下面是一个最新版本:

use Scalar::Util qw/weaken/;

sub Y (&) {
    my ($code, $self, $return) = shift;
    $return = $self = sub {$code->($self, @_)};
    weaken $self;  # prevent a circular reference that will leak memory
    $return;
}

schedule_event( Y { my $self = shift; ... }, 0);

如果你不改变 $cb 的值,你可以用它。如果没有,请定义一个标量来保存它,并且不再更改它。例如:

my $cb = do {
  my $sub;
  $sub = sub { contents using $sub here }
}

使用定点组合器,可以编写$cb函数,就像第一个参数是函数本身一样:

sub U {
  my $f = shift;
  sub { $f->($f, @_) }
}

my $cb = sub {
  my $cb = shift;
  ...
  schedule_event(U($cb), 10);
  ...
}

schedule_event(U($cb), 0);