DanielM0412 has asked for the wisdom of the Perl Monks concerning the following question:

im using a 4by4 matrix, but using a data dumper, i noticed that the numbers didnt add up as they did in the matrix, does anything weird stick out to you guys?

0.95 0.02 0.07 0.07 #A 0.03 0.01 0.06 0.83 #C 0.01 0.02 0.80 0.09 #G 0.01 0.95 0.07 0.01 #T
sub readdt2 { my $ifn = shift; open(my $IFH, "<$ifn") or die "cannot open file $ifn\n"; my $line; my @nt = ("A","C","G","T"); my %ret; my @tmp; for my $j(@nt) { $ret{$j} = []; $line = <$IFH>; chomp($line); @tmp = split(/\s+/,$line); for (my $i=0;$i<=$#tmp;$i++) { $ret{$j}[$i]= $tmp[$i] +0.0001; } } close($IFH); return(\%ret); }

Replies are listed 'Best First'.
Re: unexpected output,
by zentara (Cardinal) on Jul 20, 2011 at 18:54 UTC
      yess and i used his advice to shorten my code and make changes here and there, but it sprung up another problem, and nothing in the code sticks out to me as the problem
Re: unexpected output,
by ikegami (Patriarch) on Jul 20, 2011 at 19:37 UTC
    Is that your input or your output? If it's the input, what's the output. If it's the output, what's the input? Finally, what's the problem? (i.e. What output are you expecting?)
      im using a file with the matrix in it as the input, reading in the file and splitting it (this is the sub up above) this is this first of 3 subroutines, the next one is dividing every number in the matrix by .25 to get rid of the noise factor then the new data is the out put, and the last is writing to an empty file
        You have yet to say anything at all about the problem you want us to solve!!! Could you start by answering the remainder of my questions. Specifically, what output are you getting and what output are you expecting?