CODEWITHSUNDEEP
perlsplit
neversaint
neversaint

Reputation: 64004

Split a String into Equal Length Chunk in Perl

Let's say I have string of length in multiple of 3.

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

Is there a way I can split it into equal length of 3? Such that in the end I have this array:

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

Upvotes: 5

Views: 13459

Answers (4)

Atul Gupta
Atul Gupta

Reputation: 755

my $str='ABCDEFGHIJKLM';

we can use string match to get parts from the string, where minimum length is 1 and maximum is the required length, 3 or 4 or whatever

@parts = $str =~ /(.{1,4})/g; and we get @parts = ['ABCD', 'EFGH', 'IJKL', 'M']

Upvotes: 3

Zaid
Zaid

Reputation: 37146

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'

Upvotes: 3

spuelrich
spuelrich

Reputation: 194

Take a look at the solution at How can I split a string into chunks of two characters each in Perl?

Especially the unpack might be interesting:

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

Upvotes: 16

Alex Reynolds
Alex Reynolds

Reputation: 96937

Iterate over multiples of three, using substr to get pieces to push into a list.

Upvotes: 3

Related Questions