Help for this page

Select Code to Download


  1. or download this
    my $field_index = $position{$field};
    if ("text" eq $type{$field}) {
    ...
        };
      }
    }
    
  2. or download this
    my @sorted_list
      = map {$_[1]}
          sort $sort_routine
            map {[[split $_, "|"], $_]} @list;