perl函数映射
在看《编程语言实现模式》的时候突然想到了函数的映射，想到Gitweb里面有实现这样的功能，于是看了看，分享一下：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]