Perl subroutine for Kmer !

BioStar — Thu, 30 Jan 2020 04:38:48 -0600

sub kmers {
    my $seq = shift or return;
    my $len = length $seq;

    my @kmers;
    for (my $i = 0; ($i + $KMER_SIZE) <= $len; $i++) {
    	my $kmer = substr($seq, $i, $KMER_SIZE);
    	print "$kmer\n";
        push @kmers, substr($seq, $i, $KMER_SIZE);
    }

    return \@kmers;
 }

BOL: Perl subroutine for Kmer !

Perl subroutine for Kmer !