论坛 › Perl › perl字符串映射函数

ddlddx0000 发表于 2015-12-28 14:59:08

perl字符串映射函数

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;

查看完整版本: perl字符串映射函数