ITPub博客

首页 > Linux操作系统 > Linux操作系统 > perl 里边的 函数指针

perl 里边的 函数指针

原创 Linux操作系统 作者:bulletming 时间:2019-02-24 07:33:06 0 删除 编辑
mysql@greatdba:~/install/dbtools/temp> more testfunc.pl
#!/usr/bin/perl
sub install_precheck {
        my $str=shift;
        print "it is in install_precheck: $str\n";
}
sub install_mysql {
        my $str=shift;
        print "it is in install mysql: $str\n";
}
sub mysql_priv_init {
        my $str=shift;
        print "it is in mysql_priv_init: $str\n";
}
my %proc_table = (

        'install_precheck' => \&install_precheck,
        'install_mysql' => \&install_mysql,
        'mysql_priv_init' => \&mysql_priv_init

);
print $proc_table{'install_precheck'} . "\n";
&{$proc_table{'install_precheck'}}('abc');
$proc_table{'install_mysql'}('mysql install');
$proc_table{'stall_mysql'};

mysql@greatdba:~/install/dbtools/temp> ./testfunc.pl
CODE(0x8167738)
it is in install_precheck: abc
it is in install mysql: mysql install

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/82392/viewspace-536380/,如需转载,请注明出处,否则将追究法律责任。

下一篇: ITIL中英文对照
请登录后发表评论 登录
全部评论

注册时间:2004-05-31

  • 博文量
    121
  • 访问量
    90987