découper une chaîne en longueur égale Chunk en Perl

Question

Disons que je chaîne de longueur multiple de 3.

my $seq = "CTTCGAATT"; # in this case length of 9 

Est-il possible que je peux le diviser en longueur égale de 3? telle qu'à la fin je ce tableau:

$VAR = ["CTT", "CGA", "ATT"]; 

Answer 1

Jetez un oeil à la solution à How can I split a string into chunks of two characters each in Perl?

Surtout le unpack pourrait être intéressant:

my @codons = unpack("(A3)*", $seq); 

Answer 2

itérer sur des multiples de trois, en utilisant substr pour obtenir des pièces à push dans une liste.

Answer 3

my $str = join '', map { ('A','T','C','G')[ rand 4 ] } 0 .. 900 ; # Random string 

my @codons = $str =~ /[ACTG]{3}/g; # Process in chunks of three 
            # '/g' flag necessary 

print 'Size of @codons array : ', 
     scalar @codons;    # '300'