Re: Help De-bugging

Working backwards ...

192       my ($first_site, $last_site) = $use_filtered ? @{$thresholds
+->{$dye}{'indices'}} : (0, $nchar-1);
[download]

188       my $nchar = ${$tax_sample->{'NChar'}}[0];
[download]

186 my $tax_sample = $data->{$taxon_label}{'Samples'}{$dye};
[download]

158 my ($thresholds, $data, $comments);
159 {
160   if (@ARGV) {
161     my $gtr_fname = canonpath $ARGV[0];
162     open GTR_IN, $gtr_fname or die "Cannot open `$gtr_fname' for r
+eading: $!";
163   } else {
164     print STDERR "Reading data from standard input ...\n";
165     *GTR_IN = *STDIN;
166   }
167   ($thresholds, $data, $comments) = readGTR *GTR_IN;
168   close GTR_IN;
169 }
[download]

34 use genotyping_utilities qw( &canonpath &openForWriting &readGTR &g
+etRepsTable &transpose &isReal &getReplicateGroups );
[download]

So it looks like the hash is created by the readGTR() sub in genotyping_utilities . . .

The way forward always starts with a minimal test.

Comment on Re: Help De-bugging Select or Download Code

Replies are listed 'Best First'.
Re^2: Help De-bugging by GeneGeek (Initiate) on Sep 04, 2015 at 21:00 UTC
I also have genotyping_utilities.pm. I have it in the directory with this script per the instructions in the script. Do I need to load the module or something?	[reply]
Re^3: Help De-bugging by 1nickt (Canon) on Sep 04, 2015 at 21:05 UTC
no, it is loaded by the use statement. It builds the hash, but there is no key in the hash corresponding to the one used in the code. You'd have to look at the other code to figure out why. Sorry,i am no longer at my computer. The way forward always starts with a minimal test.	[reply]