$seqs[ $i ] = lc $seqs[ $i ] if $scores[ $i ] < $quality;
}
- $record{ "SEQ_NAME" } = $entry->[ SEQ_NAME ];
- $record{ "SEQ" } = $entry->[ SEQ ];
- $record{ "SCORES" } = $entry->[ SCORE ];
- $record{ "SEQ_LEN" } = scalar @seqs;
- $record{ "SCORE_MEAN" } = sprintf ( "%.2f", Maasha::Calc::mean( \@scores ) );
+ $record{ "SEQ_NAME" } = $entry->[ SEQ_NAME ];
+ $record{ "SEQ" } = $entry->[ SEQ ];
+ $record{ "SCORES" } = $entry->[ SCORE ];
+ $record{ "SEQ_LEN" } = scalar @seqs;
+ $record{ "SCORE_MEAN" } = sprintf ( "%.2f", Maasha::Calc::mean( \@scores ) );
return wantarray ? %record : \%record;
}