Trong Perl, làm thế nào một chương trình con có thể nhận được một coderef trỏ đến chính nó?

Question

Vì mục đích học tập, tôi đang đùa giỡn với ý tưởng xây dựng các chương trình hướng sự kiện trong Perl và nhận thấy rằng có thể tốt hơn nếu một chương trình con đã được đăng ký như một trình xử lý sự kiện có thể bị thất bại, chỉ cần lên lịch một cuộc gọi khác cho chính nó sau này. Cho đến nay, tôi có đưa ra một cái gì đó như thế này:

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 

Có cách nào mà mã bên trong tiểu có thể truy cập vào coderef đó phụ vì vậy tôi có thể làm mà không sử dụng một biến thêm? Tôi muốn lập lịch cuộc gọi ban đầu như thế này.

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

tôi suy nghĩ đầu tiên của việc sử dụng caller(0)[3], nhưng điều này chỉ mang lại cho tôi một tên chức năng, (nếu không có tên), không phải là một tài liệu tham khảo đang mà có một pad gắn liền với nó.

Answer 1

Tôi nghĩ rằng Sub::Current sẽ khắc phục sự cố của bạn.

Answer 2

Nếu bạn không thay đổi lại giá trị của $cb, bạn có thể sử dụng điều đó. Nếu không, hãy xác định một vô hướng để giữ nó và không thay đổi nó một lần nữa. Ví dụ:

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

Answer 3

Để có được một tham chiếu đến các chương trình con hiện tại mà không sử dụng một biến thêm, bạn có thể sử dụng một công cụ từ lập trình chức năng, Y Combinator, mà về cơ bản tóm tắt đi những quá trình tạo việc đóng cửa. Dưới đây là một phiên bả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

Sử dụng một combinator điểm cố định, bạn có thể viết cb chức năng $ của bạn như nếu đối số đầu tiên là chức năng riêng của mình:

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__ đã được thêm vào trong 5.16 , cung cấp khả năng sử dụng này.