在Perl中,一个子程序如何获得指向自身的代码？

发布时间：2020-12-15 21:23:32 所属栏目：大数据来源：网络整理

导读：为了学习的目的，我正在建设的想法事件驱动程序在Perl和注意到，它可能是很好的如果一个被注册为事件处理程序的子例程可以在失败时，只是安排另一个调用自己以后的时间。到目前为止，我有想出这样的东西： my $cb;my $try = 3;$cb = sub { my $rc = do_s

为了学习的目的，我正在建设的想法
事件驱动程序在Perl和注意到，它可能是很好的如果一个
被注册为事件处理程序的子例程可以在失败时，
只是安排另一个调用自己以后的时间。到目前为止，我有
想出这样的东西：

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

有一种方法，代码里面的sub可以访问coderef
sub所以我可以不使用额外的变量？我想
调度这样的初始调用。

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

我首先想到使用caller(0)[3]，但这只是给了我一个
函数名，(__ANON__如果没有名称)，而不是代码引用
其具有附接到其上的垫。

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!