Update: Argh! I just re-read the node and discovered I just wrote a bad re-implementation of esskar's code.
Update2:
Here is essentially what I was thinking, implemented correctly:
#!/usr/bin/perl
use strict;
use warnings;
my @array = qw( a..a b...b c....c d.....d e......e f.......f g........
+g h.........h i..........i j.j k..k l...l );
foreach (
do {
my @subset = splice( @array,0,8 );
my @chunk = @subset[1..6];
}
) {
s/\.//g;
print $_,"\n";
}
Here is what I orginally posted:
And on that note...
my @chunk = splice(@array,0,8);
s/\.//g foreach (@smallchunk);
Or skipping the intermediate array:
s/\.//g foreach ( splice(@array,0,8) );
I suppose I should test that code. I think in Perl, but I have the vocabulary of a two-year-old ;)
|