Re: Dividing an array into multiple parts


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Dividing an array into multiple parts

by izut (Chaplain)

on Mar 16, 2006 at 11:59 UTC ( [id://537100]=note: print w/replies, xml )

Need Help??

in reply to Dividing an array into multiple parts

Could you supply the code you wrote?

I wrote this:

use Data::Dumper;
use POSIX;

@a = (1..100);
@b = (1..8);

@new_a = ();

$maxelmts = POSIX::ceil(scalar @a / scalar @b);
$i = 0;
foreach (@b) {
        push @new_a, [grep { defined } @a[$i..($i+$maxelmts)]];
        $i += $maxelmts;
}

print Dumper \@new_a;
[download]

Igor 'izut' Sutton
your code, your rules.