摘要: 在看《编程语言实现模式》的时候突然想到了函数的映射,想到Gitweb里面有实现这样的功能,于是看了看,分享一下: 1 #!/usr/bin/perl -w 2 use strict; 3 use warnings; 4 5 #字符串映射函数 6 our %actions = ( 7 "foo" => \&foo, 8 ); 9 10 sub foo11 {12 print "test" ; 13 }14 15 sub main16 {17 my $action = "foo";18 $actions{$action}-& 阅读全文
posted @ 2012-11-24 08:56 ifeixiang 阅读(264) 评论(0) 推荐(0) 编辑