以å½æ°ä¸ºåæ°å¨å½æ°å
é¨è°ç¨ä¼ è¿æ¥çå½æ°
sub oper {
return $_[2]->($_[0], $_[1]);
}
my %oper = (
"add" => sub {$_[0] + $_[1]},
"sub" => sub {$_[0] - $_[1]},
);
print oper(1, 2, $oper{"add"}), "\n";
print oper(1, 2, $oper{"sub"}), "\n";
温馨提示:答案为网友推荐,仅供参考