Re: Fast Way to Split String in to Chunk of Equal Length

I am not sure it is fast but it works.

use Modern::Perl;
use Data::Dump qw/dump/;

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

my @strings = $seq =~ /(.{3})/g ;

say dump(@strings);
[download]

Output:

("CTT", "CGA", "ATT")
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re: Fast Way to Split String in to Chunk of Equal Length Select or Download Code

Replies are listed 'Best First'.
Re^2: Fast Way to Split String in to Chunk of Equal Length by bart (Canon) on Nov 25, 2011 at 11:51 UTC
~~I think your code is just a tad too example specific. I doubt that in his real data the string will always be 9 characters. But it will always be a multiple of 3.~~ ~~If it is always 9 characters, then your code is as good as an alternatives.~~ update Wait a minute, did you just change your code? If not, I must have replied to the wrong node.	[reply]
Re^3: Fast Way to Split String in to Chunk of Equal Length by CountZero (Bishop) on Nov 25, 2011 at 16:41 UTC
Nope, did not change my code at all. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]