perl字符串映射函数

 1 #!/usr/bin/perl -w
 2 use strict;
 3 use warnings;
 4 
 5 #字符串映射函数
 6 our %actions = (
 7 "foo" => \&foo,
 8 );
 9 
10 sub foo
11 {
12 print "test" ; 
13 }
14 
15 sub main
16 {
17 my $action = "foo";
18 $actions{$action}->();
19 }
20 main;