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