पर्ल में, एक सबराउटिन को कोडफ्रफ़ कैसे प्राप्त हो सकता है जो स्वयं को इंगित करता है?

Question

सीखने के प्रयोजनों के लिए, मैं पर्ल में घटना-संचालित कार्यक्रमों के निर्माण के विचार के साथ चारों ओर घूम रहा हूं और ध्यान दिया कि यह अच्छा हो सकता है कि एक ईवेंट हैंडलर के रूप में पंजीकृत सबराउटिन विफल हो सकता है, बस एक और कॉल शेड्यूल करें बाद में खुद के लिए। अब तक, मैं कुछ इस तरह के साथ आने के लिए है:

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 

वहाँ एक रास्ता उप अंदर है कि कोड है कि उप करने के लिए coderef उपयोग कर सकते हैं तो मैं एक अतिरिक्त चर का उपयोग किए बिना कर सकता है? मैं इस तरह की प्रारंभिक कॉल शेड्यूल करना चाहता हूं।

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

मैं caller(0)[3] का उपयोग करने का पहली बार सोचा, लेकिन यह केवल मुझे एक समारोह नाम, (अगर कोई नाम है), नहीं एक कोड संदर्भ एक पैड इसे से जुड़ी है कि देता है।

Answer 1

मुझे लगता है कि Sub::Current आपकी समस्या को ठीक करेगा।

Answer 2

यदि आप $cb के मान को फिर से नहीं बदलते हैं, तो आप इसका उपयोग कर सकते हैं। यदि नहीं, तो उसे पकड़ने के लिए एक स्केलर को परिभाषित करें और इसे फिर से न बदलें। उदाहरण के लिए:

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

Answer 3

एक अतिरिक्त चर का उपयोग किए बिना वर्तमान सबरूटीन के लिए एक संदर्भ पाने के लिए आपको कार्यात्मक प्रोग्रामिंग से एक उपकरण का उपयोग कर सकते हैं, वाई-Combinator, जो मूल रूप से बंद होने बनाने की प्रक्रिया दूर सार। यहाँ एक perlish संस्करण है:

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 4

एक निश्चित बिंदु Combinator उपयोग करके आप अपने $ सीबी समारोह समारोह में ही लिख सकते हैं के रूप में यदि पहला तर्क था , यह उपयोगिता प्रदान करते हैं।

Answer 5

__SUB__ 5,16 में जोड़ा गया है:

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