En Perl, ¿cómo puede una subrutina obtener un coderef que apunta a sí mismo?

Question

Para fines de aprendizaje, estoy jugando con la idea de crear programas controlados por eventos en Perl y noté que podría ser bueno si una subrutina registrada como un controlador de eventos pudiera, en caso de error, programar otra llamada a sí mismo para un momento posterior. Hasta el momento, no tengo llegar a algo como esto:

my $cb; 
my $try = 3; 
$cb = sub { 
    my $rc = do_stuff(); 
    if (!$rc && --$try) { 
     schedule_event($cb, 10); # schedule $cb to be called in 10 seconds 
    } else { 
     do_other_stuff; 
    } 
}; 
schedule_event($cb, 0); # schedule initial call to $cb to be performed ASAP 

¿Hay alguna manera de que el código dentro de la sub pueden acceder a la coderef a la sub por lo que podía hacer sin necesidad de utilizar una variable adicional? Me gustaría programar la llamada inicial de esta manera.

schedule_event(sub { ... }, 0); 

por primera idea de utilizar caller(0)[3], pero esto sólo me da un nombre función, (si no hay nombre), no una referencia de código que tiene una almohadilla que se le atribuye.

Answer 1

Creo que Sub::Current solucionará su problema.

Answer 2

Si no cambia el valor de $cb nuevamente, puede usarlo. Si no, defina un escalar para mantener eso y no lo cambie nunca más. Por ejemplo:

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

Answer 3

para obtener una referencia a la subrutina actual sin necesidad de utilizar una variable adicional, puede utilizar una herramienta de programación funcional, la Y-Combinator, que básicamente se abstrae el proceso de crear el cierre. Aquí está una versión perlish:

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); 

Answer 4

El uso de un combinador de punto fijo, se puede escribir su función cb $ como si el primer argumento era la propia función:

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

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

schedule_event(U($cb), 0); 

Answer 5

__SUB__ se ha añadido en 5.16 , proporcionando esta usabilidad.