Help for this page

Select Code to Download


  1. or download this
    $array = supersplit( $separator, \*DATA); #// not needed here
  2. or download this
    @fields = @{ shift( @$array ) };
  3. or download this
    %indici{@fields} = 0..$#fields;
  4. or download this
    $item = $array[$row][$indici{$thefield}];
  5. or download this
    $item = fetchit( $row, $thefield );
sub fetchit{
  $r = shift;
  $f = shift;
  $array[$r][$indici{$f}];
}