匿名函数

点击(此处)折叠或打开

1. #! perl -w
   
2. use 5.014;
   
3. 
   
4. my $val = 100;
   
5. 
   
6. #1. 这里是调用函数的入口
   
7. &foo(
   
8.     #2 匿名函数当作一个参数传递给foo
   
9.     sub {
   
10.         say @_;
    
11.         print "hello word\n";
    
12.         if ($val == 100) {
    
13.             return 200;
    
14.         }
    
15.         return 3;
    
16.     }
    
17. );
    
18. 
    
19. sub foo {
    
20.     #3. 拿到传递过来的参数,是一个匿名的引用
    
21.     my $fun = shift;    
    
22.     say $fun;
    
23.     #4.调用定义好的默认函数并返回值
    
24.     say $fun->("aa","bb");
    
25. }

输出结果为:

CODE(0x8abc94)
aabb
hello word
200