Perl_子例程调用by引用

#第一种情况，传匿名子例程引用

my $rs=&;greet;

#$rs=&;greet();#wrong

#$rs->('Joan','Kim');#当调用的已经是匿名子例程引用的时候。这行放在这里报错

my $hidrs=sub{
? ? ? ? my $ele=shift (@_);
? ? ? ? print "$ele say "Hello World".n";
};#here is only 1 line not 4 lines
#&$hidrs('Tim');

#my $hidrs这块不能放在sub greet块的后面，不然会报错。

$rs->('Joan','Kim');#当调用的已经是匿名子例程引用的时候。这行放在这里工作正常

sub greet{
? ? ? ? my $ele=shift;
? ? ? ? print "$ele and ";
? ? ? ? return &$hidrs;#当调用的已经是 匿名子例程引用的时候，要注意写法与下面的 区分开来
}#here is 5 lines

$rs->('Joan','Kim');#当调用的已经是 匿名子例程引用的时候。这行放在这里工作 正常

#另一种情况，传有名子例程引用

my $rs1 = &;test1;
$rs1 -> ("Batman") -> ("Robin");#当调用的是 有名子例程引用的时候。这行放在这里工作 正常

#sub test1()#work

subtest1

{

? ? ? ? my $arg = shift;
? ? ? ? print $arg;
? ? ? ? return &;test2;#当调用的是 有名子例程引用的时候

}

$rs1 -> ("Batman") -> ("Robin");#当调用的是有名子例程引用的时候。这行放在这里工作正常

#sub test2()#work

sub test2

{
? ? ? ? my $arg = shift;
? ? ? ? print " and $arg say "Hello World" too.n";

}

$rs1 -> ("Batman") -> ("Robin");#当调用的是有名子例程引用的时候。这行放在这里工作正常