perl根据函数名动态调用

perl的函数调用太灵活了，有点java中反射的味道，不过比起java要简单的多，且看下面

?

过程定义：

sub add{

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

?? return $a+$b;

}

?

调用方式：

'add'->(1,2);

?

$addSub='add';

$addSub->(1,2);

?

@arr=('add','sub','multi');

$arr[0]->(1,2);

?

%hash=(

?? 'add'=>'add',

??? 'sub'=>sub{ my($a,$b)=@_;

???????? return $a-$b;

??? }

);

$hash{'add'}->(1,2)

?

以上调用方式都是可行的，结果输出3

?