use Array::Group qw( :all );
@sample = ( 1 .. 10 );
$rowsize = 3;
ngroup $rowsize => \@sample ;
[ 1, 2, 3 ],
[ 4, 5, 6 ],
[ 7, 8, 9 ],
[ 10 ]
dissect $rowsize => \@sample ;
[ 1, 5, 9 ],
[ 2, 6, 10 ],
[ 3, 7 ],
[ 4, 8 ]
DESCRIPTIONThe "ngroup" method reformats a list into a list of arrayrefs. It is often used for formatting data into HTML tables, amongst other things.
"dissect()" returns a list of lists where the first element of each sublist will be one of the first elements of the source list, and the last element will be one of the last. This behaviour is much more useful when the input list is sorted.
The key difference between the two methods is that "dissect()" takes elements from the start of the list provided and pushes them onto each of the subarrays sequentially, rather than simply dividing the list into discrete chunks.
Both methods can be called as either functions or class methods (to ensure compatibility with previous releases), and the array to be reformed can be passed as a reference.
AUTHORCurrently maintained by Mike Accardo, <[email protected]>
Original author Terrence Monroe Brannon.
CONTRIBUTORSI would like to thank Alexandr Ciornii for his help in upgrading this distribution's format. He took me from using a test.pl file to using the t/ directory and removed some old crufty things that were not needed. He also upgraded the Makefile.PL.
Copyright (c) 2015 Mike Accardo Copyright (c) 1999-2014 Terrence Brannon
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.