Re: Array - Reading frame problem

[GrandFather]

Do you mean that you want the string to do this:

0123456789
123456789
23456789
3456789
456789
56789
6789
789
89
9

use strict;
use warnings;

my $sequence = "0123456789";
my @frames;

while ($sequence)
  {
  push @frames, $sequence;
  $sequence = substr $sequence, 1;
  }
  
print join "\n", @frames;

[Nadiah]

yes.. kind of.. but i was wondering if it is possible to have "individual" codes which can be reused to find $frame2 and $frame3 respectively (but there's only a need to change variable names).. and not in not in a while loop? it's because i only need to obtain another two more reading frames.


eg.
$sequence = "1234567890";
$sequence .= $frame1;
$frame 2 = "234567890";
$frame 3 = "34567890";

[stajich]

Why are you now using strings in your example, I though the whole point was you wanted to do this on an array (although there is a perf hit, split/join can let you switch back and forth....). String operations are going to be a lot faster here than array operations if you doing this alot with long sequences...

Isn't this just what you want?

my @frame1 = @sequence;
my @frame2 = @sequence;
my @frame3 = @sequence;
shift @frame2;
shift @frame3; shift @frame3;