in reply to Fast Way to Split String in to Chunk of Equal Length

unpack is the way to go, but one tip is that unpack 'a3' x $n, $str runs a few percent quicker than unpack '(a3)*', $str if you know in advance how many fields there are.

Also, if your problem allows you to unpack the strings just in time at the point where you need them, rather than en masse, avoiding the allocation, creation and destruction of 10 million concurrent small arrays -- even if you have ample memory for them -- can save a significant amounts of time.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^2: Fast Way to Split String in to Chunk of Equal Length
by ikegami (Patriarch) on Nov 25, 2011 at 17:09 UTC

    unpack is the way to go, but one tip is that unpack 'a3' x $n, $str runs a few percent quicker than unpack '(a3)*', $str if you know in advance how many fields there are.

    How can you not know in advance how many fields there are (int(length($seq)/3))?

    avoiding the allocation, creation and destruction of 10 million concurrent small arrays -- even if you have ample memory for them -- can save a significant amounts of time

    Any implementation in mind? Something like the following? 

    while ($seq =~ /(.{3})/sg) {
   # Substring in $1
   ...
}

    [download]
[reply]
[d/l]
[select]

      Assuming your question is in regard to:

      Also, if your problem allows you to unpack the strings just in time at the point where you need them, rather than en masse, avoiding the allocation, creation and destruction of 10 million concurrent small arrays -- even if you have ample memory for them -- can save a significant amounts of time.

      I meant -- unpack the strings just in time at the point where you need them -- something like:

      for my $seq ( @seqs ) {
    my @bits = unpack 'a3a3a3', $seq;
    ## $bits[ ... ]; 
}

      [download]

      rather than -- en masse --:

      @seqs = map[ unpack '(a3)*', $_ ], @seqs;
for my $ref ( @seqs ) {
    ## $ref->[ ... ]
}

      [download]
      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

      At it again. Unannounced updates. The above post originally consisted entirely of just:

      Any implementation in mind? Something like the following? 
      while ($seq =~ /(.{3})/sg) {
   # Substring in $1
   ...
}

      [download]

      To answer the dumb question that wasn't there originally,

      How can you not know in advance how many fields there are (int(length($seq)/3))?

      If you have to calculate the number, you throw away the few percent gained.

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom