perl的回调函数，谁能举个例子吗

gknhjqx

搞了大半天搞不懂回调函数真正的意思，网上搜到的都是用File::Find实现的，感觉不能完全理解

谁能举个perl的回调函数例子

laputa73

看看anyevent的抓网页的例子
done()就是回调函数

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use AnyEvent;
   
6. use AnyEvent::HTTP;
   
7. 
   
8. my $cocurrent = 100;    # 并发数
   
9. my @todoList = map { "keyword" . $_ } (1 .. 1000); # 待查询的关键词
   
10. 
    
11. my $cv = AnyEvent->condvar;
    
12. 
    
13. doit() foreach 1..$cocurrent;
    
14. 
    
15. sub doit{
    
16.     my $word = shift @todoList;
    
17.     return if not defined $word;
    
18. 
    
19.     $cv->begin;
    
20.     http_get( "http://www.baidu.com/s?wd=$word", sub { done( $word, @_ ) } );
    
21. }
    
22. 
    
23. sub done {
    
24.     my ($word, $content, $hdr) = @_;
    
25. 
    
26.     $cv->end();
    
27.     print "Search: $word\tStatus: ", $hdr->{Status}, "\n";
    
28.     doit();
    
29. }
    
30. 
    
31. $cv->recv();

复制代码

gknhjqx

回复 2# laputa73

这个我知道，jquery的ajax异步回调也能看懂。就是perl中不用模块，能举个回调函数的例子吗
   

jun413947139

在计算机程序设计中，回调函数，或简称回调（Callback），是指通过函数参数传递到其它代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。

没啥不好理解的呀，就是向函数的参数为   一个函数的引用呀。。

1. sub  callback1 {
   
2.     ......
   
3. }
   
4. 
   
5. sub  callback2 {
   
6.    ......
   
7. }
   
8. 
   
9. sub run {
   
10.    my $func_ref = shift;
    
11.   .....
    
12.   ....
    
13. }
    
14. if (a>b) {
    
15.      run(\&callback1);
    
16. }
    
17. else {
    
18.     run(\&callback2);
    
19. }
    

复制代码

laputa73

回复 3# gknhjqx


    那看看定时器的例子?

1. $timeout = 2 ;
   
2. while(1){        
   
3.   eval {               
   
4.    local $SIG{ALRM} = sub{print "sorry,time out.please try again\n"} ;               
   
5.    alarm $timeout ; # 定义一下超时器               
   
6.   print "hello world!\n" ;                 
   
7.    sleep 3 ;               
   
8.    alarm 0 ; # 取消超时器        } ;
   
9.   die $@ if $@ ;
   
10. }
    

复制代码

gknhjqx

回复 4# jun413947139


能不能加上具体变量等写完整一点，我想跑一下试试   

gknhjqx

回复 5# laputa73


这例子也知道。。有没有像4楼那样的   

laputa73

你想要的是函数指针的例子吧.

1. #!/bin/env perl
   
2. use strict;
   
3. #1.只有一个参数时可以省略().和lua一样
   
4. sub f1($){
   
5. my($a)=@_;
   
6. print "$a->{a}.\n";
   
7. }
   
8. 
   
9. sub f2($){
   
10. my($a)=@_;
    
11. print "$a->{b}.\n";
    
12. }
    
13. 
    
14. f1{"a","b","1","2"};
    
15. 
    
16. #output
    
17. #-bash-3.00$ perl testf.pl
    
18. #b.
    
19. 
    
20. 
    
21. #2.使用变量名调用函数
    
22. my $fname="f1";
    
23. #&{\&{$fname}}({"a","b","1","2"}); #这里不能省略()
    
24. &{\&$fname}({"a","b","1","2"});
    
25. 
    
26. my $f=\&{$fname};
    
27. #my $f=\&$fname;  #可以省略{}
    
28. &$f({"a","b","1","2"});  #这里不能省略()
    
29. 
    
30. my $cmd="${fname}({'a','b','1','2'});";
    
31. #eval($cmd);
    
32. eval("${fname}({'a','b','1','2'});");
    
33. 
    
34. #output.以上相同
    
35. #-bash-3.00$ perl testf.pl
    
36. #b.
    
37. #b.
    
38. 
    
39. 
    
40. #3.函数赋值给变量
    
41. #和lua不同,lua要求调用函数没有参数时,必须加().否则代表函数赋值
    
42. #而perl则是要求函数赋值时必须加\&
    
43. #即$f=f1在perl里面代表函数调用(标量) ,而f=f1在lua里面代表函数赋值
    
44. my  $ff=\&f1;
    
45. &$ff({"a","b","1","2"});
    
46. $ff=\&f2;
    
47. &$ff({"a","1","b","2"});
    
48. $ff=f1{"a","1","b","2"};
    
49. &$ff;
    
50. #-bash-3.00$ perl testf.pl
    
51. #b.
    
52. #b.
    
53. #1.
    
54. #2.
    
55. 
    
56. my {$fff}=&f1;
    
57. fff({"a","b","1","2"});
    
58. 
    
59. #4.匿名函数
    
60. sub f3{
    
61.         return  sub{
    
62.          my($a)=@_;
    
63.    print "$a->{a}.\n";
    
64.   }
    
65. }
    
66. $ff=f3;
    
67. &$ff({"a","1","b","2"});
    
68. #-bash-3.00$ perl testf.pl
    
69. #b.
    
70. #b.
    
71. #1.
    
72. #2.
    
73. #1.
    
74. 
    
75. #5.闭包
    
76. sub f4{
    
77.         my $b=shift;
    
78.         return sub{
    
79.          my($a)=@_;
    
80.    print "$a->{$b}.\n";
    
81.   }               
    
82. }       
    
83. 
    
84. $f=f4("a");
    
85. &$f({"a","1","b","2"});
    
86. $f=f4("b");
    
87. &$f({"a","1","b","2"});

复制代码

gknhjqx

回复 8# laputa73

不是啊，我就是想看一个不用模块的，用perl实现的回调函数的例子啊