perl函数映射

在看《 编程语言实现模式》的时候突然想到了函数的映射，想到Gitweb里面有实现这样的功能，于是看了看，分享一下： [pl] #!/usr/bin/perl -w use strict; use warnings; #字符串映射函数 our %actions = ( "foo" => \&foo, ); sub foo { print "test" ; } sub main { my $action = "foo"; $actions{$action}->(); } main; [/pl]