note
zubenel0
Tasks like this can be solved by using <a href="https://bioperl.org/howtos/Beginners_HOWTO.html#item10">BioPerl</a>.
<code>use strict;
use warnings;
use Bio::SeqIO;
# Reading the fasta file
my $seqio_obj = Bio::SeqIO->new(-file => "Genes.fasta",
-format => "fasta" );
# Looping through sequences and printing them unless length <= 10
while ( my $seq_obj = $seqio_obj->next_seq ) {
print $seq_obj->seq,"\n" unless $seq_obj->length <= 10;
}
# The output should be : "GGAGGTCTTTAGCTTTAGGGAAACCC".
</code>
11113575
11113575