perl函数映射

发布时间：2020-12-15 23:51:58 所属栏目：大数据来源：网络整理

导读：在看《编程语言实现模式》的时候突然想到了函数的映射，想到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 {

在看《编程语言实现模式》的时候突然想到了函数的映射，想到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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!