Help for this page

Select Code to Download


  1. or download this
    (@ary1, $num) = read_data(\@tmpary, $tmpsclr);
  2. or download this
    ($ary1ref, $num) = read_data(...);
    @ary1 = @$ary1ref;      # silly, but gets the point across
    # ... later ...
    ...
        # ...
        return \@retary, $count;
    }