perl 子例程引用与闭包（对所写函数的引用和调用）

1、对有名子例程的引用

sub great()

{

           print "hello \n";

}

my $rs = \&great;

重要一点我们并没有调用子例程great，这和创建对标量变量的引用时一样，也没有计算标量变量的值。于下面做对比：

my $rs = \&great();

也等价于：

sub great()

{

           print "hello \n";

}

print &$rs;

 

2、对匿名子例程的引用

 

3、对子例程引用的间接访问

Perl并不关心$rs指向的有名还是无名的子例程，间接访问操作对两种情况都适应

use strict;

use warnings;

sub great()

{

           my ($a, $b) = @_;

           print $a, "\n";

           print $b, "\n";

}

my $rs = \&great;

print &$rs(12,21);             #使用引用对函数的调用方式1

print $rs -> (23,32);           #使用引用对函数的调用方式2

如果中间的调用同样返回对子例程的引用的话，子例程调用可以链接起来。

use strict;

use warnings;

my $rs = \&test1;

$rs -> ("Batman") -> ("Robin");

sub test1()

{

           my $arg = shift;

           print $arg;

           return \&test2;

}

sub test2()

{

           my $arg = shift;

           print " and $arg\n";

}