Perl 反射机制

反射就是将字符串转换为对应的语言对象

#!/usr/bin/perl -w

sub add{
   my($a,$b)=@_;
   print $a+$b;
   return $a+$b;
}

'add'->(1,2); # 3

$addSub='add';
$addSub->(1,2);

@arr=('add','sub','multi');
$arr[0]->(1,2); # 3

%hash=(
   'add'=>'add',
   'sub'=>sub{ my($a,$b)=@_;
         return $a-$b;
    }
);
$hash{'add'}->(1,2); # 3