匿名函数

点击(此处)折叠或打开

#! perl -w
use 5.014;

my $val = 100;

#1. 这里是调用函数的入口
&foo(
    #2 匿名函数当作一个参数传递给foo
    sub {
        say @_;
        print "hello word\n";
        if ($val == 100) {
            return 200;
        }
        return 3;
    }
);

sub foo {
    #3. 拿到传递过来的参数,是一个匿名的引用
    my $fun = shift;
    say $fun;
    #4.调用定义好的默认函数并返回值
    say $fun->("aa","bb");
}

输出结果为:

CODE(0x8abc94)
aabb
hello word
200