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;
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;