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 ;)
--
Allolex
In reply to Re^2: How to make it simple?
by allolex
in thread How to make it simple?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |