Re: [Boston.pm] Odd printing problem

On Mon, Nov 20, 2006 at 01:05:58PM -0500, Alex Brelsfoard wrote:

> --------------------------------------------------------------------
> ...
> 1    foreach my $framID (@$arrayName) {
> 2        # print out the the famID and framID.
> 3        print FILE $famID.",$framID";
> 4        foreach my $trait (@batchOfTraits) {
> 5            # Print the comma delimiter
> 6            print FILE ",";
> 7            # Print the residual if one exists for this trait
> 8            # leave blank otherwise.
> 9            my $traitArrayName = "fullTraitIndex_$trait";
> 10          my $residual = '';
> 11          $residual = $$traitArrayName{$framID} if
> ($$traitArrayName{$framID});
> 12          print FILE $residual if ($residual);
> 13        }
> 14        print FILE "\n";
> 15
> 16    } # end foreach member in the family
> ...
> ----------------------------------------------------------------------

You should really be using a hash instead of symbolic references.

It seems that there's something wrong with the data.  There's not really
enough to go on here.

Ronald