Perl风格：函数作为数据

1998年1月1日，作者：Tom Christiansen

• 使用函数指针作为函数参数或在数据结构中

      # from MxScreen in TSA (see also PCB 19.12)
      %State_Table = (
          Initial  => \&show_top,
          Execute  => \&run_query,
          Format   => \&get_format,
          Login    => \&resister_login,
          Review   => \&review_selections,
          Sorting  => \&get_sorting,
          Wizard   => \&wizards_only,
      );
  
      foreach my $state (sort keys %State_Table) {
          my $function = $State_Table{$state};
          my $how      = ($action == $function)
                          ? SCREEN_DISPLAY
                          : SCREEN_HIDDEN;
          $function->($how);
      }
  

转到 闭包
返回 配置文件
回到 索引

版权所有 © 1998，Tom Christiansen 保留所有权利。