-while ( $record = Maasha::Biopieces::get_record( $in ) )
-{
- if ( exists $record->{ 'SEQ' } and exists $record->{ 'SCORES' } )
- {
- if ( $right )
- {
- $pos_r = Maasha::Fastq::trim_right( $record->{ 'SCORES' }, $options->{ 'min' } );
-
- $record->{ 'SEQ' } = substr $record->{ 'SEQ' }, 0, $pos_r + 1;
- $record->{ 'SCORES' } = substr $record->{ 'SCORES' }, 0, $pos_r + 1;
- $record->{ 'TRIM_RIGHT' } = $pos_r;
- }
-
- if ( $left )
- {
- $pos_l = Maasha::Fastq::trim_left( $record->{ 'SCORES' }, $options->{ 'min' } );
-
- $record->{ 'SEQ' } = substr $record->{ 'SEQ' }, $pos_l;
- $record->{ 'SCORES' } = substr $record->{ 'SCORES' }, $pos_l;
- $record->{ 'TRIM_LEFT' } = $pos_l;
- }
-
- $record->{ 'SEQ_LEN' } = length $record->{ 'SEQ' };
- }
-
- Maasha::Biopieces::put_record( $record, $out );
-}
-
-Maasha::Biopieces::close_stream( $in );
-Maasha::Biopieces::close_stream( $out );
-
-
-# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<