perl字符串映射函数
发布时间:2020-12-15 23:51:57 所属栏目:大数据 来源:网络整理
导读: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 } 2
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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |