Re: variation on splitting a string into elements of an array

X will back up a byte. So:

my $line ='atgcatccctttaat';
my @trips = unpack('a3X2' x (length($line)-2), $line);
print join "\n", @trips;
[download]

yields:

atg
tgc
gca
cat
atc
tcc
ccc
cct
ctt
ttt
tta
taa
aat
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: variation on splitting a string into elements of an array Select or Download Code

Replies are listed 'Best First'.
Re^2: variation on splitting a string into elements of an array by Roy Johnson (Monsignor) on Mar 02, 2005 at 19:00 UTC
This uses the same technique to extract three frame sequences into separate arrays: `my $line ='atgcatccctttaat'; my @trips; my $frame; for (unpack('a3X2' x (length($line)-2), $line)) { push @{$trips[$frame++]}, $_; $frame %= 3; } use Data::Dumper; print Dumper \@trips;` [download] output: `$VAR1 = [ [ 'atg', 'cat', 'ccc', 'ttt', 'aat' ], [ 'tgc', 'atc', 'cct', 'tta' ], [ 'gca', 'tcc', 'ctt', 'taa' ] ];` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: variation on splitting a string into elements of an array
by Roy Johnson (Monsignor) on Mar 02, 2005 at 19:00 UTC

my $line ='atgcatccctttaat';
my @trips;
my $frame;
for (unpack('a3X2' x (length($line)-2), $line)) {
  push @{$trips[$frame++]}, $_;
  $frame %= 3;
}
use Data::Dumper;
print Dumper \@trips;
[download]

$VAR1 = [
          [
            'atg',
            'cat',
            'ccc',
            'ttt',
            'aat'
          ],
          [
            'tgc',
            'atc',
            'cct',
            'tta'
          ],
          [
            'gca',
            'tcc',
            'ctt',
            'taa'
          ]
        ];
[download]

Caution: Contents may have been coded under pressure.

[reply]
[d/l]
[select]