Furter investigation is required.
Here is the call method:
%evals = parseFiles::getEvals(); print Dumper \%evals;
and here is the assignment:
for(my $i = 0 ; $i<scalar @blastLine; $i++) { if ($blastLine[$i] =~ /^>/) { $counter = 0; $current_subject = $blastLine[$i]; chomp ($current_subject); push (@subjects, $current_subject); $alignment->{$current_subject} = ""; ### assignment here for key value#### $evals{$current_subject} = $blastLine[$i]; } $alignment->{$current_subject} = $alignment->{$current_subject}.$b +lastLine[$i]; if($blastLine[$i] =~ /\bScore/) # check to see if the current line points to the e-value { $counter++; my @tempArray = split(",",$blastLine[$i]); # chop the line into an array for processing $tempArray[1] =~ s/(Expect|Expect\(2\))\s=\s//g; #strip off an +y digits,spaces, or = signs to get just e-value if($counter eq 1) { ### assignment here for value#### $evals{$current_line} = $tempArray[1]; } } }
this shows:
$VAR1 = { '>gi|19908487|gb|AF343350.1|' => '>gi|19908487|gb|AF343350.1 +|'
In reply to Re: Hash print problems
by MonkPaul
in thread Hash print problems
by MonkPaul
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |