Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
   map[ @array[$_..$_+$step-1] ],
   range(0,$#array,$step)
];

Select or download this



# usage: my @AoA = range($start,$stop[,$step]);

sub range {grep!(($_-$_[0])%($_[2]||1)),$_[0]..$_[1]}