perl 回调函数
发布时间:2020-12-15 23:39:31 所属栏目:大数据 来源:网络整理
导读:在计算机程序设计中,回调函数,或简称回调(Callback),是指通过函数参数传递到其它代码的,某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。没啥不好理解的呀,就是向函数的参数为 一个函数的引用呀。。[root@wx03 ~]# cat a2.pl
在计算机程序设计中,回调函数,或简称回调(Callback),是指通过函数参数传递到其它代码的,某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。 没啥不好理解的呀,就是向函数的参数为 一个函数的引用呀。。 [root@wx03 ~]# cat a2.pl use AE; use AnyEvent; ##定义watch sub run { my $code=shift; my $t = AnyEvent->timer( after => 0,interval => 1,cb => $code,); my $cv = AnyEvent->condvar; $cv->recv; }; sub test { print "22222222221n"; }; run(sub {test()}); [root@wx03 ~]# perl a2.pl 22222222221 22222222221 [root@wx03 ~]# cat a2.pl use AE; use AnyEvent; ##定义watch sub run { my $code=shift; my $t = AnyEvent->timer( after => 0,); my $cv = AnyEvent->condvar; $cv->recv; }; sub test { print "22222222221n"; }; run(&;test); [root@wx03 ~]# perl a2.pl 22222222221 22222222221 [root@wx03 ~]# perl a2.pl 22222222221 1: callback must be a CODE reference or another callable object at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/AnyEvent/Impl/EV.pm line 50. [root@wx03 ~]# cat a2.pl use AE; use AnyEvent; ##定义watch sub run { my $code=shift; my $t = AnyEvent->timer( after => 0,); my $cv = AnyEvent->condvar; $cv->recv; }; sub test { print "22222222221n"; }; run(&test); [root@wx03 ~]# perl a2.pl 22222222221 1: callback must be a CODE reference or another callable object at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/AnyEvent/Impl/EV.pm line 50. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |